Bonsoir,
Sans entrer dans les détails
- Tu crée ton menu dans le style
Set MonMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
Before:=CommandBars(1).Controls("?").Index, Temporary:=True
Utilises l'aide pour plus de renseignements sur CommandBars
Ensuite tu rajoute le menu
MonMenu.Caption = "MesMenus"
Set cmd1 = CommandBars(1).Controls("MesMenus").Controls.Add(msoControlPopup)
With cmd1
.Caption = "&Menu1"
La tu dois pouvoir boucler sur tes feuilles et récupérer tes boutons
For each element in sheets
tu récupère les boutons avec TypeOf sers toi de l'aide
.Controls.Add (msoControlButton)
With .Controls(1)
.Caption =Le nom de ton bouton
.OnAction = l'évènement Click de ton bouton
.FaceId = L'image si tu veux
End With