Merci à tous les deux pour vos réponses.
Cependant, ni l’une ni l’autre ne fonctionnent.
Peut-être je ne les incorporent pas au bon endroit. Le problème est que sur mon poste la macro fonctionne parfaitement.
Je vous joins le code complet pour mieux voir.
Merci encore à tous les deux et la question reste ouverte. Bonne fin d'après midi
Code dans Thisworkbook :
Private Sub Workbook_Open()
Call Ajout_Menu_Perso
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Supp_Menu_Perso
End Sub
Code dans le Module :
Sub Ajout_Menu_Perso()
With CommandBars(1).Controls.Add(msoControlPopup)
.Caption = 'La&wson'
With .Controls.Add(msoControlButton)
.Caption = 'AS &213'
.FaceId = 59
.BeginGroup = False
.OnAction = 'as213_mise_en_page'
End With
With .Controls.Add(msoControlButton)
.Caption = 'Tic&kets resto.'
.FaceId = 2101
.BeginGroup = False
.OnAction = 'Tickets_restaurant'
End With
End With
End Sub
Sub Supp_Menu_Perso()
CommandBars(1).Controls('Lawson').Delete
End Sub