Option Explicit
Sub essai()
Dim NomFeuille As String
On Error Resume Next ' Pour éviter erreur si pas encore créé
Application.DisplayAlerts = False ' Pour éviter demande de confirmation d'effacement
Charts("Graphe1").Delete ' Efface "Graphe1"
Application.DisplayAlerts = True
Charts.Add
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "aaaa"
End With
Sheets(ActiveSheet.Name).Name = "Graphe1" ' Renomme la feuille du graphe "Graphe1"
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("Graphe!$B$2:$C$673")
End Sub