[XL 2003] Message d'attente suite lancement macro

Sub ProgressionStatusbar()
    Dim i As Long
    Dim InitSB As Boolean
    Dim Indice As Integer
    Dim Debut As Date
    
    Debut = Now
    'Récupére la valeur de la barre d'état afin de pouvoir la redéfinir à son état initial
    'en fin de procédure.
    '(Renvoie True si la barre d'état est affichée, sinon False)
    InitSB = Application.DisplayStatusBar
    'Affiche la barre d'état si ce n'est pas déjà le cas
    Application.DisplayStatusBar = True

    'Exemple de boucle pour tester l'affichage dans la barre d'état.
    For i = 1 To 150000
        '
        'la procédure
        '
        
        '---
        If Debut <> Now Then
            Indice = Indice + 1
            Debut = Now
        
           If Indice > 10 Then Indice = 1
        End If
        
        Application.StatusBar = Application.Rept(Chr(62), Indice)

        '---
    Next
    
    'Restaure la donnée par défaut de la barre d'état
    Application.StatusBar = False
    'Réinintialise le mode d'affichage de la barre.
    Application.DisplayStatusBar = InitSB
End Sub

sub toto()
uf_patienter.show 0
Uf_patienter.repaint

la suite du code 

Unload(Uf_patienter)
end sub