Bonjour
en regardant d'un peu plus prés, tu dois essayer d'affecter une macro a un entête de menu.
le code ci dessous fonctionne chez moi, cela devrait te guider
A+
Sub essai()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar")
If IsError(IsObject(.Controls("Menu contextuel personnalisé 12092768"))) Then Set Variable_en_Cours = .Controls.Add(Type:=msoControlPopup, before:=1): Variable_en_Cours.Caption = "Menu contextuel personnalisé 12092768"
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("Menu contextuel personnalisé 12092768")
If IsError(IsObject(.Controls("Bouton Ajout de feuille"))) Then Set Variable_en_Cours = .Controls.Add(Type:=msoControlButton, ID:=752, before:=1): Variable_en_Cours.Caption = "Bouton Ajout de feuille": Variable_en_Cours.OnAction = "essai2"
End With
On Error GoTo 0
End Sub
Sub essai2()
MsgBox "ok"
End Sub