Sub Lancer_UserForm()
Dim nbr As Variant
Dim nombre As Variant
nombre = 0
UserForm1.Show
Do Until nombre = 25
nombre = nombre + 1
nbr = nbr + 5
' Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + Range("Feuil2!G1"))
' Application.OnTime Go, "Lancer_UserForm"
' Range("Feuil2!G2") = Time
' For nombre = 1 To 1000
Range("Feuil3!A1") = nbr
UserForm1.TextBox1.Text = nbr
UserForm1.Repaint
' Next nombre
Loop
End Sub