Sub Outils_Perso()
'Définit une barre d'outils
Set cmd = CommandBars.Add(Name:="Perso Outils", Temporary:=True)
cmd.Visible = True
'Ajoute un bouton à la barre d'outils
Set btn = cmd.Controls.Add(Type:=msoControlButton)
With btn
'Définit le texte du bouton
.Caption = "Outils Perso"
'Définit l'action associée au bouton
.OnAction = "'C:\Perso\Macros_Perso.XLA'!Lancement_Menu_Perso"
'Définit le style du bouton
.Style = msoButtonCaption
End With
End Sub