Zone de texte dans un sous menu d'une barre de commande perso

Sub test_ok()
BarreMacrosInit "BARRETEST"
End Sub
Sub BarreMacrosInit(NomBarre As String)
' Création de la barre d'outils personnalisé

    Dim nvbar As CommandBar                                                                                                                   ' Barre d'outils
    Dim contextuelTOOLS As CommandBarPopup, contextuelCOLLER As CommandBarPopup, contextuelIT As CommandBarPopup                              ' Sous menus
    Dim boutonsTOOLS, boutonsCOLLER As CommandBarButton, boutonsIT As CommandBarButton                                                        ' Sous Menu
    Dim contextuelITbouton1 As CommandBarButton, contextuelITbouton2 As CommandBarButton    ' Boutons
    Dim contextuelITbouton3 As Variant
    
    ' Barre d'outils
    Set nvbar = Application.CommandBars.Add(Name:=NomBarre, Position:=msoBarTop, Temporary:=True)
    nvbar.Visible = True
    nvbar.Enabled = True
    
    ' Menu IT
    Set contextuelIT = nvbar.Controls.Add(msoControlPopup)
    contextuelIT.Caption = "IT"
    contextuelIT.TooltipText = "Personnalisation Excel"
    
    'Boutons du menu IT
    'Set boutonsIT = nvbar.Controls.Add(msoControlButton, 2950)
    Set contextuelITbouton1 = contextuelIT.Controls.Add(msoControlButton)
    contextuelITbouton1.FaceId = 2950
    contextuelITbouton1.Caption = "Affichage Icônes Excel"
    contextuelITbouton1.OnAction = "A_BarrePerso.AfficherBoutons"
    
    Set contextuelITbouton2 = contextuelIT.Controls.Add(msoControlButton)
    contextuelITbouton2.FaceId = 2950
    contextuelITbouton2.Caption = "Suppression Icônes Excel"
    contextuelITbouton2.OnAction = "A_BarrePerso.EffacerBoutons"
    
    'Set contextuelITbouton3 = contextuelIT.Controls.Add(msoControlButton)
    Set contextuelITbouton3 = contextuelIT.Controls.Add(msoControlEdit)
    contextuelITbouton3.Style = msoComboLabel
    contextuelITbouton3.Caption = "Texte :"
    contextuelITbouton3.TooltipText = "info-bulle zone txt 2"
    contextuelITbouton3.Tag = "txt2"
    contextuelITbouton3.OnAction = "MaMacro2"
    contextuelITbouton3.BeginGroup = True
    
    With CommandBars(NomBarre).Controls.Add(Type:=msoControlEdit)
        .Style = msoComboLabel
        .Caption = "Texte :"
        .TooltipText = "info-bulle zone txt 2"
        .Tag = "txt2"
        .OnAction = "MaMacro2"
        .BeginGroup = True
    End With
    
End Sub

Sub BarreMacrosEnd(NomBarre As String)
' Suppression de la barre d'outils personnalisé

    On Error Resume Next
    Application.CommandBars(NomBarre).Delete
End Sub

Sub MenuCell(stCde As String, stMess As String)
' Ajout d'un bouton dans le menu contextuel (click droit)
    
    Dim Mc As CommandBarControls
    Dim Bo As CommandBarButton

    Set Mc = CommandBars("Cell").Controls
    Set Bo = Mc.Add(msoControlButton, Temporary:=True)
    Bo.Caption = stMess
    Bo.OnAction = stCde
End Sub