Probleme enregistrement macro : activechart

[Benzema]

Bonjour,

J'ai realiser une macro permettant de tracer 1 graph pour 2 Y different, voulant rajouter 1 2eme axe en ordonnee, jai reenregistre une macro pour obtenir le code VBA:

ActiveSheet.ChartObjects("Chart 26").Activate
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).AxisGroup = 2
ActiveChart.ChartArea.Select
With ActiveChart
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Axe Y2"
End With

Mon probleme est que je ne sais pas comment integrer ActiveChart et ActiveSheet a ma macro (j'utilise un Chart appele c.Chart que je trace sur la sheet 1)

Merci de votre aide
Clem