Voici la soultion que j'ai trouvé (menu contextuel pour une forme Rectangle) :

Sub Modif_Menu()
Dim Menu_Contextuel As CommandBar
Dim NewBtn As CommandBarComboBox
Dim NewBtn2 As CommandBarControl

Set Menu_Contextuel = Application.CommandBars("Shapes")
'trait séparateur
Menu_Contextuel.Controls.Add(before:=1).BeginGroup = True
'Ajout menu
Set NewBtn2 = Menu_Contextuel.Controls.Add(Type:=msoControlButton, before:=1)
With NewBtn2
.Caption = "Coller la couleur du rectangle"
.BeginGroup = True
.OnAction = "CollerCouleurs"
End With
'effacement ligne vide
Menu_Contextuel.Controls.Item(2).Delete
End Sub


Sub Reinit()
Application.CommandBars("Shapes").Reset
End Sub