insertion menu perso et macro

Private Sub Workbook_Open()
Application.CommandBars("Personnalisé 1").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Personnalisé 1").Visible = False
End Sub

Dim Nouv As Object
Private Sub Workbook_Activate()
Set Nouv = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With Nouv
.Caption = "&Recherche"
.OnAction = "Ma macro de recherche"
End With
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

Dim Nouv As CommandBarButton

Private Sub Workbook_Activate()
    Set Nouv = Application.CommandBars("Worksheet Menu Bar").Controls.Add
    With Nouv
        .Style = msoButtonCaption
        .Caption = "&Recherche"
        .OnAction = "vachercher"
    End With
End Sub

Private Sub Workbook_Deactivate()
    Application.CommandBars("Worksheet Menu Bar").Reset
End Sub