changer couleur abscisse graph

bonjour,

lorsque je cré un graphique en VBA je n'arrive pas a changer la couleur de l'axe ordonné,
voici le code :

Sheets("Graphique").Activate

ActiveSheet.ChartObjects("Graphique2").Chart.Select
ActiveChart.Axes(xlValue).Select
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(75, 230, 38)
.Transparency = 0
.Solid
End With

ActiveChart.Axes(xlValue, xlSecondary).Select
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(75, 230, 38)
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With



merci pour aide car la je bloque compltement (de plus je remarque qu' apres la creation de mon graph lorsque je clique dessus toutes les options sont grisées..)

bonne soirée