Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreBoutons", temporary:=True)
barre.Visible = True
barre.Width = 45
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
'.DropDownLines = 3
bouton.Style = msoButtonWrapCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Tri doublons LDA"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonWrapCaption
bouton.OnAction = "Macro2"
bouton.Caption = "Concaténation LDA triée et FRD"
bouton.Width = 1
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro3"
bouton.Caption = "Comparaison LDA/FRD"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro4"
bouton.Caption = "Ajout données base FRD"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro5"
bouton.Caption = "Effacer les données"
End Sub