Excel VBA Chart

Question

Bonjour,
Je souhaite changer la police de caractères sur l'axe des abscisses d'un graphique nommé "Pyramide11".
Dans ce but manuellement et avec l'aide de l'enregistreur de macro j'ai obtenu :

Sub Macro2()
ActiveSheet.ChartObjects("Pyramide11").Activate
ActiveSheet.ChartObjects("Pyramide11").Activate
ActiveChart.Axes(xlValue).Select
With Selection.Format.TextFrame2.TextRange.Font
.BaselineOffset = 0
.Name = "Arial"
End With
End Sub

Lorsque je relance en automatique cette macro j'ai l'avertissement suivant :

La méthode ‘TextFrame2’ de l’objet ‘ChartFormat’ a échouée

J'ai beau tourner dans tous les sens, je ne vois pas ce qui cloche dans l'exécution automatique.
Par ailleurs, je ne comprends pas la raison pour laquelle la ligne
ActiveSheet.ChartObjects("Pyramide11").Activate
est enregistrée 2 fois.

Merci pour votre aide et cordialement.