'référencé l'objet CurrentChart, le premier graphique
Set CurrentChart = Sheets("feuil1").ChartObjects(1).Chart
' active le graphique (qui s'appelle "nom_du_grphique")
Sheets("feuil1").ChartObjects("nom_du_grphique").Activate
ActiveChart.ChartArea.Select
' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier
Fname = ThisWorkbook.Path & "\temp4.jpeg"
CurrentChart.Export Filename:=Fname, filtername:="jpeg"