variable bloc with non definie

Bonjour à tous,

j'ai trouvé récemment un vieux tuto pour la mise en forme de graphique. Grace à un code VBA les courbes prennent les couleurs définies dans le tableau de base. Hélas lorsque je veux exécuter la macro j'ai le message suivant : "variable objet ou variable bloc with non définie."
voici le code copié :
Sub CouleurSeries()
Dim MesSeries As Series
With ActiveChart
For Each MesSeries In .SeriesCollection
Select Case MesSeries.Name

Case "ville1"
MesSeries.Border.ColorIndex = 9
MesSeries.Border.Weight = xlThick
MesSeries.MarkerStyle = xlMarkerStyleSquare
MesSeries.MarkerBackgroundColorIndex = 9
MesSeries.MarkerForegroundColorIndex = 9
MesSeries.MarkerSize = 10

Case "ville2"
MesSeries.Border.ColorIndex = 33
MesSeries.Border.Weight = xlThick
MesSeries.MarkerStyle = xlMarkerStyleSquare
MesSeries.MarkerBackgroundColorIndex = 33
MesSeries.MarkerForegroundColorIndex = 33
MesSeries.MarkerSize = 10

Case "ville3"
MesSeries.Border.ColorIndex = 16
MesSeries.Border.Weight = xlThick
MesSeries.MarkerStyle = xlMarkerStyleSquare
MesSeries.MarkerBackgroundColorIndex = 16
MesSeries.MarkerForegroundColorIndex = 16
MesSeries.MarkerSize = 10


End Select
Next
End With
End Sub

j'espère que vous pourrez m'apporter un peu d'aide car malgré tous mes essais je reste nulle face à VBA

merci

Sasha