Sub ChangerNomGraphe1()
Dim LeGraphe As Chart
Dim NomGraphe As String
If Not ActiveChart Is Nothing Then
NomFeuille = ActiveSheet.Name
Set LeGraphe = ActiveChart
NomGraphe = InputBox("Entrez le nom du graphe", "Changer de nom de Graphe")
ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = NomGraphe
Else
MsgBox "selectionner un graphe"
End If
End Sub