Placer icone devant menu contextuel

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