VBA dans menu contextuel droit avec office 365

Bonjour ,

J'utilise le code ci-dessous pour mon menu contextuel droit personnalisé et j'aimerais avoir possibilité de mettre du texte au lieu du séparateur ,Est ce possible ?
Merci par avance de vos retours

Code:

---

1 2 3 4 5 6

With Cbar.Controls.Add(msoControlButton) '<-- création du bouton .BeginGroup = True 'place un séparateur avant .FaceId = 2946 .Caption = "Menu Contextuel" '<-- texte du bouton .OnAction = "Macro15" '<-- procédure à exécuter End With

---