Bonjour,

Voici un exemple type de la création du menu dynamique sous Excel avec ces icons dont vous parlé !

Function AjoutBarreMenu() As Boolean
'
Dim Texte As String
Dim I As Integer
Dim Flag As Boolean
Dim BarreMenu, MaBarre, MonItem As Object

On Error GoTo Err_Barre

    Flag = SupprimeMenu
    Flag = False
    
    'Création de la barre de menu
    Set BarreMenu = Application.CommandBars.ActiveMenuBar
    Set MaBarre = BarreMenu.Controls.Add(Type:=msoControlPopup, temporary:=True)
    
    MaBarre.Caption = "Automatisme"
    
    'Insère menu
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Ouvrir sans VBA"
        .OnAction = "OuvrirSansVBA"
        .FaceId = 2579
    End With
        
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "VB Editeur"
        .OnAction = "VBEditeur"
        .FaceId = 66
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Active Évènement"
        .OnAction = "ActiveEvenement"
        .FaceId = 66
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Désactive Évènement"
        .OnAction = "DesactiveEvenement"
        .FaceId = 66
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Trier les onglets par noms"
        .OnAction = "A_FonctionsPerso.TrierOnglets"
        .FaceId = 1000
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Produit la liste des Menus"
        .OnAction = "ListeMenus"
        .FaceId = 212
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Produit la liste des Barres"
        .OnAction = "ListeBarres"
        .FaceId = 642
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Efface les cellules de la feuille"
        .OnAction = "EffaceCellulePage"
        .FaceId = 635
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Personnalisé la barre de titre d'Excel"
        .OnAction = "RenommeExcel"
        .FaceId = 222
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Test si le presse-papier est vide"
        .OnAction = "TestContenuPressePapier"
        .FaceId = 22
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Affiche Info Systême"
        .OnAction = "ChercheSystemeInfo"
        .FaceId = 487
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Affiche version de Windows"
        .OnAction = "ChercheWindowsVersion"
        .FaceId = 1016
    End With
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Affiche version du fichier"
        .OnAction = "VersionFichier"
        .FaceId = 1000
    End With
    
'TrierOnglets
    
    Set MonItem = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonItem
        .Caption = "Nouveau"
        .OnAction = "Boucle"
        .FaceId = 222
    End With
    
    AjoutBarreMenu = True
    
Exit_Barre:
    Exit Function
    
Err_Barre:
    AjoutBarreMenu = False
    Texte = "Erreur dans la routine AjoutBarreMenu"
    Texte = Texte & Chr(13) & Err.Number
    Texte = Texte & Chr(13) & Err.Description
    MsgBox Texte
    Resume Next
    
End Function
'