Excel et VBA ( Barre d'outils )

[MacPhil]

Bonjour,

Voici le listing sous VBA pour qu'à l'ouverture d'un classeur, un nouveau menu apparaisse et disparaisse à la fermeture de ce meme classeur. (Ce listing fonctionne très bien. )

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Bonjour").Delete
End Sub

Private Sub Workbook_Open()
Dim monBouton As CommandBarButton
Set monBouton = _
Application.CommandBars("Worksheet Menu Bar").Controls.Add
monBouton.Caption = "&Bonjour"
monBouton.Style = msoButtonCaption
monBouton.BeginGroup = True
monBouton.OnAction = "AfficherBonjour"
End Sub

Existe t'il quelque chose équivalent pour une barre d'outils, qui contiendrait deux boutons de Style texte sans icone ?

D'avance merci, Salutations distinguées.