Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I
For I = 1 To ActiveSheet.ChartObjects.Count
MsgBox "Nom: " & ActiveSheet.ChartObjects(I).Name & vbTab & _
" dans " & ActiveSheet.Name, , "Nom du Graphique"
choix = MsgBox("Souhaitez vous le renommer ", 4, "Changement ")
If choix = vbYes Then
valgraph = Application.InputBox(prompt:="Mettre un Nom.", Title:="Plage de cellules", Left:=500, Top:=300, Type:=2)
ActiveSheet.ChartObjects(I).Name = valgraph
End If
Next I
End Sub