XL 2019 Barre de progression

Sub test()
    Dim debut&, fin&, rReste$, Reste$, effectué$, LongBar&
    debut = 100    'debut de la boucle
    fin = 2000    'limite de la boucle
    LongBar = 50    'longueur de la barre de progression
    char = String(1, Chr(6))    'le carateres de situation non atteint
    For i = debut To fin Step 0.01    'boucle de 100 a 2000
        a = Int(i / (fin / LongBar))    'index de situation d'avancement
        Reste = String(LongBar - a - 1, char)    ' ce qu'il reste de la chaine apres
        efectué = 100 - (Len(Reste) / LongBar * 100) & "%"    'pourcentage effectué
        rReste = Len(Reste) / LongBar * 100 & "%"    'pourcentage restant
        'affichage dans mar de status
        Application.StatusBar = "   <<| " & String(a, Chr(8)) & Reste & " |>> EFFECTUE : " & efectué & " / RESTE :  " & rReste
        'DoEvents'autorise d'autre action pendant la boucle mais ralenti la boucle(testez bloqué et débloqué)
    Next
End Sub

Sub testzz()
    Dim debut&, fin&, i&
    debut = 386   'debut de la boucle
    fin = 20000    'limite de la boucle
    For i = debut To fin    'boucle de 386 a 20000
        progress3 debut, fin, i
        DoEvents    'autorise d'autres action pendant la boucle mais ralenti la boucle(testez bloqué et débloqué)
    Next

End Sub

Sub progress3(debut, fin, i)
    Dim a&, StringBar$, longBar&
    longBar = 75'longueur de la bar de progression en terme de caractère
    a = Round((i - debut) / (fin / longBar))  'calcul index(situation bar) par rapport à i en fonction du début différent de 1 et de fin divisée par la longueur de barre
    StringBar = String(a, Chr$(8)) & String(longBar - (a), Chr$(6)) 'création du string
    Application.StatusBar = "  << |||" & StringBar & "||| >>  " & Int((a + 0.0001) * 100 / longBar) & " % EFFECTUE""" ' le (((0.0001))) c'est pour éviter le division par zero
End Sub