Private Sub Workbook_Open()
au cas ou
Dim objPopUp As Object
Dim objBtn As Object
With Application.CommandBars("Worksheet Menu Bar")
resetbar
Set objPopUp = .Controls.Add(msoControlPopup, 1, True)
With objPopUp
.Caption = "MyFunction"
Set objBtn = .Controls.Add(msoControlButton)
With objBtn
.Caption = "formula Entry"
.OnAction = ""
.Style = msoButtonCaption
End With
Set objBtn = .Controls.Add(msoControlButton)
With objBtn
.Caption = "value Entry"
.OnAction = ""
.Style = msoButtonCaption
End With
End With
End With
Call SelectAccueil
End Sub