Aide sur commandbar

[natorp]

Bjr à tous et toutes
Je dispose de ce code récupérer sur le fil qui est dans un module :

Option Explicit
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Const APPNAME As String = "Congés"
Option Private Module

Sub CréerMenu()
Dim MenuAides As CommandBarControl
Dim NouveauMenu As CommandBarPopup
Dim ElémentMenu As CommandBarButton
Call SupprimeMenu
Set MenuAides = CommandBars(1).FindControl(ID:=30010)
If MenuAides Is Nothing Then
Set NouveauMenu = CommandBars(1).Controls _
.Add(Type:=msoControlPopup, temporary:=True)
Else
Set NouveauMenu = CommandBars(1).Controls _
.Add(Type:=msoControlPopup, Before:=MenuAides.Index, _
temporary:=True)
End If
NouveauMenu.Caption = "&Congés"
Set ElémentMenu = NouveauMenu.Controls.Add(Type:=msoControlButton)
With ElémentMenu
.Caption = "&Saisie"
.OnAction = "Saisie"
End With

End Sub

J'aimerais le mettre dans le code de la feuille ou trouver une adaptation pour que le choix "Congés" ne soit pas visible dans un autre classeur quand plusieurs classeurs sont ouverts après le premier qui dispose de ce choix ....

Merci de votre attention, cordialement
Gérard