Dim mabarre As CommandBars
'
Sub Ajout_BarreMenu()
'CommandBars.Add(Name, [Position], [MenuBar], [Temporary]).Propriété = ValeurPropriété
Set mabarre = CommandBars.Add(Name:="Menu personnel", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
'
End Sub