fahd

dans workbook_open tu tapes ça

Set menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, temporary:=True)
menu.Caption = "Retour"
menu.Tag = "Retour"

With menu.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "FeuillePrincipale"
.Style = msoButtonCaption
.OnAction = "PrincipaleFeuilleMethod"
End With

et dans un module , n'importe lekel, tu peux en créer un nouvveau tu tapes

public sub PrincipaleFeuilleMethod()
set activeworksheet = activeworkbook.worksheets("MaFeuillePrincipale")
end sub

sinon essaie ca aussi

public sub PrincipaleFeuilleMethod()
activeworkbook.worksheets("MaFeuillePrincipale").a ctivate
end sub

bonne chance