Comment faire: Progressbar

Bonjour,

J'ai une macro de ce type:

Sub Macro()
For each feuilles de mon classeur
Call traitement1(feuilles)
next
End sub

Sub Traitement1 (feuilles)
for each cellule de maplage
traitment2
next
end sub

Je souhaite apprendre comment faire une progressbar sur le déroulement de cette macro. (Je connais l'utilisation de la progressbar pour 1 traitement mais ne sait pas l'inclure dans ce projet à plusieurs traitement)