voici une petite procédure qui fait ça simplement :
Sub ControleOption()
'Ti
'Dim CB As CommandBarControl
On Error Resume Next
'1ère méthode : renvoi du bouton directement par son nom
'Set CB = CommandBars(1).Controls("Outils").Controls("Options...")
'2ème méthode : renvoi du bouton par son ID, via FindControl
'avantage, ça marche quelle que soit la langue
'Set CB = CommandBars.FindControl(ID:=522)
'If Not CB Is Nothing Then CB.Execute
'plus radical encore !
CommandBars.FindControl(ID:=522).Execute
End Sub