Sous menu

Bonjour le forum,

Je cherche depuis un certain temps à créer un sous menu à partir d'un menu que j'ai créé.
Voici le code VBA :

Sub InserenouveauMenu()
With CommandBars(1).Controls.Add(msoControlPopup)
.Caption = "Exemple"
With .Controls.Add(msoControlButton)
.Caption = "Tri croissant"
.FaceId = 210
.BeginGroup = True
.OnAction = "Affiche"
End With
With .Controls.Add(msoControlButton)
.Caption = "Tri décroissant"
.FaceId = 211
.BeginGroup = True
.OnAction = "Affiche"
End With
End With
End Sub


J'aimerai, par exemple qu'à partir de là, créer un sous menu sur le tri croissant par exemple.

Merci d'avance et à bientôt !