tracé de courbe vba

Bonjour à tous !
Je viens vous voir pour quelque chose de simple seulement voila je n'arrive pas à voir d'ou provient mon erreur ...
J'ai deux colonnes :
en A des vitesses de vent
en C des puissances associée
j'aimerai tracer la puissance en fonction de la vitesse .
Je me suis aidé de l'enregistreur de macro mais le résultat n'est pas le bon : il me trace 2 courbes en fonction du nombre de points ...
Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub courbe_puissance() Dim DernLigne2 As Long DernLigne2 = Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Shapes.AddChart.Select With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "courbe puissance " .SeriesCollection.NewSeries .SeriesCollection(1).XValues = ActiveSheet.Range("A2:A" & DernLigne2).Value .SeriesCollection(1).Values = ActiveSheet.Range("C2:C" & DernLigne2).Value .ChartType = xlXYScatter End With End Sub
Je sais que l'erreur doit être toute bête mais ca fait 45min que je galère dessus ...
Pouvez vous m'aider svp ? :)