Mise en forme de plusieurs graphiques (boucle For Each ?)

Bonjour le forum,


Sous VBA (Excel 2007), j'ai une macro de mise en forme de graphique (couleur de trait, type de marqueur, etc.) que je souhaite appliquer à tous les graphiques d'une même feuille (et dans plusieurs documents, mais ça ce ne sera normalement pas un problème).
Le corps de la macro (la mise en forme) fonctionne correctement, mais je n'arrive pas à générer la boucle de sorte à prendre en compte « tous les graphiques » de ma feuille. Je suis parti sur une structure en FOR EACH...NEXT pouvoir traiter tous les graphiques, peu importe leur nombre, mais cela ne fonctionne pas. Je suppose que le problème vient de « ActiveChart.SeriesCollection(...).Select », mais je ne sais comment sélectionner les courbes d'un graphique sans passer par la sélection du graphique via un ACTIVECHART.

Quelqu'un aurait-il une solution ? Ci-dessous mon code actuel :

Sub updategraph()
    Dim graph As ChartObject
    For Each graph In Sheets("Feuille1").ChartObjects

'***contenu de la boucle :
    
'Courbe 1 (ex : 2013)
    ActiveChart.SeriesCollection(1).Select
    
    Selection.MarkerStyle = 3
    Selection.MarkerSize = 5
    
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.[/contents/1214-le-codage-rgb-rvb RGB] = RGB(0, 112, 192)
        '.Transparency = 0
        '.Solid
    End With
    
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 112, 192)
        '.Transparency = 0
        .Weight = 1.5
    End With
    

'Courbe 2 (ex : 2014)
    ActiveChart.SeriesCollection(2).Select
    
    Selection.MarkerStyle = 2
    Selection.MarkerSize = 5
    
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(146, 208, 80)
        '.Transparency = 0
        '.Solid
    End With
    
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(146, 208, 80)
        '.Transparency = 0
        .Weight = 1.5
    End With

    
'Courbe 3 (ex : 2015)
    ActiveChart.SeriesCollection(3).Select
    
    Selection.MarkerStyle = 1
    Selection.MarkerSize = 6
    
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        '.Transparency = 0
        '.Solid
    End With
    
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        '.ForeColor.ObjectThemeColor = msoThemeColorText1
        '.ForeColor.TintAndShade = 0
        '.ForeColor.Brightness = 0
        '.Transparency = 0
        .Weight = 2.5
    End With

    Next graph
End Sub

Merci d'avance pour votre aide :)