Menu indigeste

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call Sup_Cbar
End Sub

Private Sub Workbook_Open()

    Call Barre2MenusPerso
    If ActiveSheet.Name = "Feuil1" Then
        maj.Enabled = True
    Else
        maj.Enabled = False
    End If
    
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Feuil1" Then
        maj.Enabled = True
    Else
        maj.Enabled = False
    End If
End Sub

Option Explicit
[COLOR="red"]Public maj As CommandBarButton[/COLOR]
Sub Barre2MenusPerso()

Dim CbarModOp As CommandBar
Dim Cbut As CommandBarButton
Dim CpopModOp As CommandBarPopup

'création de la barre de menus
    Set CbarModOp = CommandBars.Add(Name:="Mode Opératoire", Position:=msoBarTop, Temporary:=True)
        CbarModOp.Protection = msoBarNoCustomize  '<-- protection de la barre de menus

'insertion sur la barre de menus d'un sous-menu
    Set CpopModOp = CbarModOp.Controls.Add(msoControlPopup)
        With CpopModOp
            .Caption = "Mode opératoire" '<-- label du sous-menu
            '.Tag = "Titi" '<-- étiquette qui sert à quoi ??
        End With
'insertion dans le sous-menu 1 d'un premier bouton de commande
    Set Cbut = CpopModOp.Controls.Add(msoControlButton)
        With Cbut
            .Style = msoButtonCaption '<-- bouton avec texte uniquement
            .Caption = "Bouton 1" '<-- label du bouton
            '.OnAction = "Macro4" '<-- procédure à exécuter
            .Tag = "sm1cbut1" '<-- étiquette
        End With
'insertion dans le sous-menu 1 d'un second bouton de commande
    Set Cbut = CpopModOp.Controls.Add(msoControlButton)
        With Cbut
            .Style = msoButtonCaption '<-- bouton avec texte uniquement
            .Caption = "&Mise à jour" '<-- label du bouton
            '.OnAction = "MajModOp" '<-- procédure à exécuter
            .Enabled = False
        End With
    [COLOR="Red"]Set maj = Cbut[/COLOR]
    CbarModOp.Visible = True '<-- affichage de la barre de menus
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Application.CommandBars("Menu contextuel personnalisé 10658")
    If Sh.Name = "Feuil1" Then
        .Controls(2).Enabled = True
    Else
        .Controls(2).Enabled = False
    End If
End With
End Sub