Griser un sous menu suivant un choix de valeur

Bonsoir,
J'ai ajouté un menu en VBA et cela fonctionne parfaitement. Mais je souhaiterais mettre un test sur une valeur qui influe sur l'affichage de sous menu 2 par exemple et donc qu'il soit visible ou pas.
Merci d'avance.

Sub MakeMenu()
Dim Nouveau As CommandBarControl
Dim Nouveau10 As CommandBarControl
Dim Nouveau11 As CommandBarControl, Nouveau12 As CommandBarControl,


On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Nouveau
.Caption = "API"
End With

Set Nouveau10 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau10
.Caption = "Création Fichier"
.Style = msoButtonIconAndCaption

End With

Set Nouveau11 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau11
.Caption = "Génération"
.FaceId = 455
.Style = msoButtonIconAndCaption
.OnAction = "Generate"
End With


Set Nouveau12 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau12
.BeginGroup = True
.Caption = "Type de Document"
.Style = msoButtonIconAndCaption
.OnAction = "Doc_Type"
End With