Graphique à taille variable, erreur 400

[micom59]

Bonjour,

j'essais de faire un graphique a 2 courbes où l'on peut choisir le début et la fin de la plage.

J'ai donc ce code la

Sub graphesla2()
debut = Workbooks("jour.xls").Worksheets("parametre").Range("B7").Value + 1
fin = Workbooks("jour.xls").Worksheets("parametre").Range("B8").Value + 1

ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).XValues = "=DATA!R" & debut & "C1:R" & fin & "C1"
ActiveChart.SeriesCollection(1).Values = "=DATA!R" & debut & "C4:R" & fin & "C4"
ActiveChart.SeriesCollection(2).Values = "=DATA!R" & debut & "C4:R" & fin & "C6"

End Sub

mais cela ne marche pas, je n'ai qu'une courbe sur 2 qui se modifie et une erreur "400" arrive alors...

pourquoi cela ne marche pas?
Que signifie cette erreur?

Merci d'avance pour vos réponses,

Mickaël.