XL 2013 Barre de progression Userrform utilisée sur plusieurs macros

[hemerode]

Bonjour à tous,

J'ai cette barre de progression de Sébastien Mathier que je souhaite utiliser sur plusieurs macros avec la barre qui part de 0 à 100 sachant que le nombre d'itérations peut changer d'une macro a une autre. Mais je constate qu'au début des macros suivantes, le contenu de userform devient blanc quelques secondes avant de reprendre.
Avez vous une solution?

Application.ScreenUpdating = False
    
    UserForm_demo.Height = 121.5

    compteur = 0
    progression = 0
    
    For ligne = 1 To 2000
        For col = 1 To 50
        
            compteur = compteur + 1
            Cells(ligne, col) = ligne + col
            
            If compteur Mod 1000 = 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
    
'------------------------------------------
 
    Image_barre.Width = 0
    Call dede

Merci à vous!