Ajouter des boutons dans l'onglet Compléments du Ruban

Sub CreeBouton()
   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.Style = msoButtonIconAndCaption
   bouton.TooltipText = "xxx"
   bouton.OnAction = "Macro1"
   bouton.Caption = "Macro1"
   
   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
   bouton.Style = msoButtonIconAndCaption
   bouton.TooltipText = "xxx"
   bouton.OnAction = "Macro2"
   bouton.Caption = "Macro2"
End Sub

Sub macro1()
  MsgBox "macro1"
End Sub

Sub macro2()
  MsgBox "macro2"
End Sub