Barre d'outils principale d EXCEL

[URL="https://www.excel-downloads.com/forums/"][IMG]http://www.excel-downloads.com/forum/mk:@msitstore:msohlp11.chm::/html/bluedrop.gif[/IMG]Méthode Add telle qu'elle s'applique à l'objet [B]CommandBars[/B].[/URL]
  Cette méthode crée une nouvelle [URL="https://www.excel-downloads.com/forums/"]barre de commandes[/URL] et  l'ajoute à la collection de barres de commandes. Elle renvoie un objet [B]CommandBar[/B].
 [I]expression[/I].[B]Add[/B]([B][I]Name[/I][/B], [B][I]Position[/I][/B], [B][I]MenuBar[/I][/B], [B][I]Temporary[/I][/B])
 [I]expression   [/I]   Obligatoire. Expression qui renvoie un objet [B]CommandBars[/B].
 [B][I]Name[/I][/B]     Argument de type [B]Variant[/B] facultatif. Nom de la nouvelle barre de commandes. Si  vous ne spécifiez pas cet argument, un nom par défaut est affecté à la barre de  commandes (tel que Custom 1).
 [B][I]Position[/I][/B]     Argument de type [B]Variant[/B] facultatif. Position ou type de la nouvelle barre de  commandes. Il peut s'agir de l'une des constantes [B]MsoBarPosition[/B] répertoriées dans le tableau suivant :
[URL="https://www.excel-downloads.com/forums/"][IMG]http://www.excel-downloads.com/forum/mk:@msitstore:msohlp11.chm::/html/bluedrop.gif[/IMG][/URL]
 [B][I][COLOR=Blue]MenuBar     Argument de type Variant facultatif. Affectez-lui la valeur True pour remplacer la barre de menus active par la nouvelle  barre de commandes. La valeur par défaut est False.[/COLOR][/I][/B]

Sub Cbar()

Dim NewB As CommandBar
Dim NewMenu As CommandBarPopup
Dim SousMenu As CommandBarControl

SupNewBar

Set NewB = CommandBars.Add(Name:="MaBarre", MenuBar:=True)
    With NewB
     .Visible = True
    End With

Set NewMenu = NewB.Controls.Add(Type:=msoControlPopup)
    With NewMenu
    .Caption = "Commandes Perso"
    End With

Set SousMenu = NewMenu.Controls.Add(Type:=msoControlButton)
    With SousMenu
     .Caption = "Supp MaBarre"
     .FaceId = 21
     .OnAction = "SupNewBar"
    End With

End Sub

Sub SupNewBar()
On Error Resume Next
 CommandBars("MaBarre").Delete
On Error GoTo 0
End Sub