Segment et export image

Bonjour,

je sollicite votre aide pour automatiser une tâche répétitive.

Je dispose d'un segment qui me permet de faire varier l'affichage de graphiques.

J'ai une macro avec clic-bouton qui me permet d'exporter le graphique que j'affiche.

Donc la tâche répétitive est : je sélectionne un objet --> j'exporte le graphique, je sélectionne l'objet suivant --> j'exporte le graphique, ...

Comment faire une boucle pour exporter tous les objets de mon segment les uns après les autres ?

Ma macro d'export est celle-ci :

Sub export_image_de_plage()
Set Source = Range("A21:J53")
Source.CopyPicture xlScreen, xlPicture
Set gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
gr.Chart.Paste
gr.Chart.Export "Z:\chemin\" & Range("B3") & ".jpg", "JPG"
gr.Delete
End Sub

D'avance merci pour votre aide.

Oliv