Dim Ibis As Long, Jbis As Long, T As Double
UserForm1.Show
Max = 10000
T = Timer
For Ibis = 1 To Max
UserForm1.ProgressBar1.Value = Ibis
UserForm1.Label1.Caption = "CALCUL EN COURS " & Format(Ibis / Max, "0%")
DoEvents
Next
Cells(2, 1) = "DoEvents= " & Timer - T & " seconde(s)"
Unload UserForm1