Salut Rhodan,
voici ce que dit l'aide VBA:
For Each element In group
[statements]
[Exit For]
[statements]
Next [element]
voici donc, ce que tu devrais ecrire...
For Each SeriesCollection In ChartObjects("Graphique 7715")
For Each Points In SeriesCollection
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Next Points
Next SeriesCollection
le "element" dans "Next element" est optinal seulement quand tu as qu'une boucle...
A++, Sylsyl.