Création plusieurs graphique avec même critère mise en page

Bonjour,

Via des cases à cocher, je créé des graphiques dont la différence ne viennent que de leur valeur en X et Y.

Voici un exemple dont les seules caces à cocher qui marchent sont BUG2 (Galopin1) et BUG3 (Galopin2).

Comme vous pourrez le constater dans le code VBA, je mets à chaque fois le même critère de mise en forme pour les graphiques :

'Mise en forme du graphique sélectionné

Dim i As Integer

    On Error Resume Next

    With ActiveChart
        Select Case .ChartType
            Case 4, 63 To 67, -4169, 72 To 75
                .SetElement (msoElementLegendBottom)
                .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
                .SetElement (msoElementPrimaryValueAxisTitleRotated)
                .SetElement (msoElementChartTitleAboveChart)
                .Axes(xlValue).MajorGridlines.Border.Color = RGB(200, 200, 200)
                For i = 1 To .SeriesCollection.Count
                    .SeriesCollection(i).Format.Line.Weight = 3
                    .SeriesCollection(i).MarkerSize = 3
                Next i
        End Select
        End With

    'Changement de couleur des lignes

With ActiveChart.SeriesCollection(1)
.Border.Color = RGB(0, 176, 80)
End With

With ActiveChart.SeriesCollection(2)
.Border.Color = RGB(255, 0, 0)
End With

End With 

au lieu de copier coller ce code à chaque fois pour chaque graphique, est-il possible de faire un critère général ?

Je pensais à quelque chose comme ça mais ça ne fonctionne pas :

Dim ch As ChartObject

Set ch = ActiveWorkbook.ChartObjects.Count
For Each ch In ActiveWorkbook

etc etc

End With
Next 

Merci pour votre aide !