Bonjour Bonjour, tous le monde

Je souhaite mettre en place un controle progressBar sur une Userform
Contexte
une macro copie ligne à ligne (1000) une feuille excel vers un autre feuille dans un deuxième classeur Excel.
Cette macro est imbriqué dans une boucle For qui vérifie un certain nombres d'arguments et qui ecrit les lignes répondant à ces arguments

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
For i = Ligne To Maxlg Step 1 ' boucle pour chaque ligne
'Mes données à écrire (Cde SQL)
NexT i
Quel est le type de code à utiliser pour faire fonctionner le ProgressBar, et surtout comment je l'intègre aux code existant?
J'ai Trouvé le code suivant mais je ne vois pas comment l'intégrer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
ProgressBar1.Max = 1000
ProgressBar1.Visible = true
Dim c As Range
For Each c In Range("a2:a1000")
ProgressBar1.Value = c.Row ' évolution de la progressbar
If c.Value = "" Then
   c.EntireRow.Hidden = True
End If
Next
Merci d'avance à tous ceux et celles qui prendront le temps de me répondre
JF