If ThisWorkbook.Sheets("Feuil1") = true then Compteur = 1
[COLOR="Red"]From[/COLOR] i = 1 to 20
Compteur = Compteur +1
PctDone = Compteur * "5%" '(Me disant que 100% / Nbre de feuille = 5%) ?
ThisWorkbook.Sheets([COLOR="red"]i[/COLOR]). PrintOut
Call ProgressBar
next i
End Sub