Re : Commanbar
Ok,
J'ai réussi à faire ce que je voulais.
Sub NouvelleBarre()
'Pour créer une barre de commande
Application.CommandBars.Add "Barre supplémentaire", 1, 0, True
'pour ajouter un bouton + icon
Set MonControl = CommandBars("Barre supplémentaire").Controls.Add(Type:=msoControlButton, ID:=280)
With MonControl
.Style = msoButtonIconAndCaptionBelow 'Bouton avec icône + texte
.Caption = "Importer un audit " 'Nom du bouton
.OnAction = "MAJ" 'Définit la macro associée au bouton.
.FaceId = 1661 'Icône
End With
Set MonControl = Nothing
'Pour afficher la barre de commande
Application.CommandBars("Barre supplémentaire").Visible = True
End Sub
A+