Macro generation graphe

Bonjour

J'ai enregistré une macro de génération de grahe excel.Mais quand je l'execute ,ça se bloque au niveau de

Code:

---

ActiveSheet.Shapes.AddChart.Select

---

Je ne sais pas pourquoi car je l'ai enregistré manuellement.
Voici le code complet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() ' ' Macro1 Macro ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' Range("D7:I12").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range("'Feuil1'!$D$7:$I$12") ActiveChart.ChartType = xlXYScatterLinesNoMarkers End Sub

---

Type d'erreur :Erreur d’exécution 1004
Merci

Bonjour HellalaBoys (KAC)
Ici un exemple pour tracer un graphique (Utilises plutôt des variables objets mieux que les Activemachin)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub TraceGrapheElementaire() Dim Chrt As ChartObject   Application.ScreenUpdating = False With Worksheets("Feuil1") Set Chrt = .ChartObjects.Add(200, 50, 300, 160) Chrt.Chart.SetSourceData Source:=.Range("D7:I12") End With Chrt.Chart.ChartType = xlXYScatterLinesNoMarkers Set Chrt = Nothing End Sub

---