Private Sub CommandButton1_Click()
'Macro : Sébastien Mathier - Excel-Pratique
'Tuto vidéo : http://www.blog-excel.com/barre-de-progression-excel/
Application.ScreenUpdating = False
UserForm_demo.Height = 121.5
compteur = 0
progression = 0
For ligne = 1 To 5000
For col = 1 To 50
compteur = compteur + 1
Cells(ligne, col) = ligne + col
If compteur Mod 2500 = 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
End Sub