XL 2010 Boucle jusqu'à arriver à la fin du code

Bonjour à tous,

J'ai un fichier exce3l me permettant de générer un questionnaire sur word et ce en affichant une barre de progression.

Actuellement, j'ai éparpillé plusieurs lignes de code permettant de faire avancer le chargement de la barre de progression par 25% :
---------------------------------------------------------------
userform1.label1.width = 0%/25% etc.
---------------------------------------------------------------
Mais je trouve cela assez moche de faire progresser la barre de cette manière et j'aurais donc voulu effectuer une boucle qui incrémenterait le width par 1 tant que l'on a pas atteint la fin du code ou bien qu'on ai pas trouvé une certaine ligne dans le code:
---------------------------------------------------------------
do while ???
userform1.label1.width = userform1.label1.widht + 1
wend
---------------------------------------------------------------
Auriez-vous, svp, une solution (pas trop compliquée je l'espère) permettant de mettre mon idée en pratique ?

Merci d'avance et bonne journée