bonjour Chris
pour nommer le 1er graphique dans la feuille active tu peux utiliser
ActiveSheet.ChartObjects(1).Name = 'Le nom du Graphique'
cet autre exemple recupere le nom du 1er graphique dans la feuille 1 , colle ce graphique dans la Feuil3 , puis le renomme avec le meme nom
Sub CopierCollerGraphique_AvecMemeNom()
Dim LeNom As String
Dim NbGraph As Byte
' cet exemple ne prend pas en compte les erreurs si un autre graphique
'porte deja le meme nom dans la feuille
LeNom = Feuil1.ChartObjects(1).Name 'recuperer le nom existant
Feuil1.ChartObjects(1).Copy 'copier le graphique
Feuil3.Range('E5').PasteSpecial xlPasteAll 'coller dans la Feuil3
NbGraph = Feuil3.ChartObjects.Count 'compte le nombre de graphiques dans la Feuil3
'le nouveau graphique correspond à l'index le plus élevé
Feuil3.ChartObjects(NbGraph).Name = LeNom 'réattribuer le nom
End Sub
bonne soiree
MichelXld