Sub Bouton1_Cliquer()
'sélection de la feuille
Sheets("GRAPH 1").Select
'répertoire où enregistrer image jpg
ChDir "C:\IMAGES"
'création de ton image jpg
ActiveChart.Export Filename:="graph_1.jpg", FilterName:="JPG"
'sélection de la feuille
Sheets("GRAPH 2").Select
'répertoire où enregistrer image jpg
ChDir "C:\IMAGES"
'création de ton image jpg
ActiveChart.Export Filename:="graph_2.jpg", FilterName:="JPG"
'sélection de la feuille
Sheets("GRAPH 3").Select
'répertoire où enregistrer image jpg
ChDir "C:\IMAGES"
'création de image jpg
ActiveChart.Export Filename:="graph_3.jpg", FilterName:="JPG"
End Sub