Application.ScreenUpdating = False
UserForm_demo.Height = 121.5
compteur = 0
progression = 0
For ligne = 1 To 2000
For col = 1 To 50
compteur = compteur + 1
Cells(ligne, col) = ligne + col
If compteur Mod 1000 = 0 Then '=> sera exécuté 100x
progression = progression + 1
Image_barre.Width = progression * 1.5
Label_barre.Caption = progression & "%"
DoEvents
End If
Next
Next
Application.ScreenUpdating = True
UserForm_demo.Height = 136.5
'------------------------------------------
Image_barre.Width = 0
Call dede