Sub BarreMenu()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "Efface l'onglet iAgent"
bouton.FaceId = 358
bouton.OnAction = "EffacerOnglet_iAgent"
bouton.Caption = "Effacer onglet iAgent"
bouton.Width = 100
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "Efface l'onglet dAgent"
bouton.FaceId = 358
bouton.OnAction = "EffacerOnglet_dAgent"
bouton.Caption = "Effacer onglet dAgent"
bouton.Width = 100
CommandBars("BarreBoutons").Controls.Add Type:=msoControlButton, ID:=2054
End Sub