Barre de progression VBA

Bonjour,

j'ai un probleme avec la barre de progession en vba merci de votre aide
Sub test()

compteur = 0
For i = 1 To 10000
Cells(1, 1) = i
If compteur Mod 1000 = 0 Then '=> sera exécuté 100x

progression = progression + 1
Image1.Width = progression * 1.5

End If
Next

End Sub