XL 2016 Placer icone devant menu contextuel

[alain160]

Bonjour,

J’ai créé un menu contextuel (Mon menu contextuel) avec un sous menu (coupe).

J’ai réussi a placer une icône (FaceId) devant le sou menu, mais je n’arrive pas a faire de même devant le menu contextuel.

Savez-vous comment faire ?

Merci par avance

Sub menu_contextuel()
Dim Cpop1 As CommandBarPopup
Dim Cbut As CommandBarButton
Dim MaBarre As CommandBar

Set MaBarre = Application.CommandBars("cell")

Set Cpop1 = MaBarre.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "Mon menu contextuel" '<-- label du sous-menu

End With


Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 266
.Caption = "coupe"
.OnAction = "Macro1"
End With

End Sub