Sub ComptageTemps() UserForm1.CommandButton1.Visible = False Worksheets("Calcul").Range("T1").Value = 0 For I = 1 To 31 UserForm1.TextBox14.Value = Worksheets("Calcul").Range("T1").Value Application.Wait (Now + TimeValue("0:00:01")) Worksheets("Calcul").Range("T1").Value = Worksheets("Calcul").Range("T1").Value + 1 'Ajouter cela peut être ? DoEvents Next I UserForm1.CommandButton1.Visible = True End Sub