Sub testxx()
For i = 1 To 100000
x = i
StatusProgressBar 100000, x
Next
End Sub
Function StatusProgressBar(max, ind)
Dim barre$, fin&, it&, perct&
barre = WorksheetFunction.Rept(ChrW(9618), 20)
fin = Int(max / (max / 20))
it = Int(ind / (max / 20))
Mid$(barre, 1, it) = Application.Rept(ChrW(9608), it)
perct = Int(100 * (it / fin))
Application.StatusBar = " - Progression : |" & barre & "| " & perct & " % "
End Function