Je fais ça, ça marche mais je ne copie pas au format .png
Sub CopierGraphique()
'Déclaration des variables
Dim graph As ChartObject
Dim chemin As String
'Récupération du graphique nommé ''Graphique 10'' dans la feuille ''IRC''
Set graph = ThisWorkbook.Worksheets("IRC").ChartObjects("Graphique 10")
graph.CopyPicture appearance:=xlScreen, Format:=xlPicture
End Sub