graph vba

bonjour bonjour
j ai un probleme avec les lignes de code suivantes. excel trouve une erreur que je ne vois pas. si qqn peut m aider, merci

numgraph = 0
Do While numgraph < 37
ActiveChart.SeriesCollection((numgraph + 1)).XValues = '=initial!R5C+' + Format(numgraph * 2 + 2) + '):R2005C+' + Format(numgraph * 2 + 2)
ActiveChart.SeriesCollection((numgraph + 1)).Values = '=initial!R5C+' + Format(numgraph * 2 + 3) + '):R2005C+' + Format(numgraph * 2 + 3)
ActiveChart.SeriesCollection((numgraph + 1)).Name = numgraph
numgraph = numgraph + 1
Loop