Sub aa()
Dim CH As Chart
'---
For Each CH In ThisWorkbook.Charts
'### AU CHOIX ###
'--- Exporte en format .jpg ---
CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".jpg", FilterName:="jpg"
'--- Exporte en format .gif ---
CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".gif", FilterName:="gif"
'--- Exporte en format .png ---
CH.Export Filename:=ThisWorkbook.Path & "\" & CH.Name & ".png", FilterName:="png"
'################
Next CH
End Sub