Bug de Macro suite changement de version Excel

Bonjour, sur mon lieu de travail je suis passé d'un excel datant de l'âge de pierre (2000, voir avant), et maintenant je suis sur EXCEL 2010 (W7).

J'ai une macro qui me permet de réduire le nom des séries sur mon graphique, il y a 150 séries, c'est pour ça que j'utilise une macro.

Il y a un bug que je ne comprend pas.

Voici la macro :
---------------------
Private Sub reducnomdeseriesgraph7_Click()
Dim i As Integer

i = 1

While Cells(i + 1, 1) <> ""

ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(i).Points(1).DataLabel.Select
Selection.Characters.Text = Cells(i + 1, 17)
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=4).Font (LIGNE QUI SE SURLIGNE EN JAUNE)
.Name = "Arial"
.FontStyle = "Normal"
.Size = 6
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveChart.PlotArea.Select

i = i + 1

Wend

End Sub
---------------------------------

La ligne en erreur est indiquée par du texte.

Merci de votre aide.

Bonne journée.