barre d'outils et bouton de commande

Private Sub Workbook_Open()
    Dim ToolsMenu As CommandBarPopup
    Dim NewMenuItem As CommandBarButton
    Set ToolsMenu = Application.CommandBars(1).FindControl(Type:=10, ID:=30007)
    Set NewMenuItem = ToolsMenu.Controls.Add(Type:=1, Temporary:=True)
    With NewMenuItem
        .Caption = "ma macro"
        .OnAction = "macro1"
    End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars(1).FindControl(Type:=10, ID:=30007).Controls("ma macro").Delete
    On Error GoTo 0
End Sub

Private Sub Workbook_Open()
    Dim MenuPerso As CommandBarPopup
    Dim NewMenuItem As CommandBarButton
    Set MenuPerso = Application.CommandBars(1).Controls.Add(Type:=10, Temporary:=True)
    MenuPerso.Caption = "perso"
    Set NewMenuItem = MenuPerso.Controls.Add(Type:=1, Temporary:=True)
    With NewMenuItem
        .Caption = "ma macro"
        .OnAction = "macro1"
    End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars(1).Controls("perso").Delete
    On Error GoTo 0
End Sub

    Set NewMenuItem2 = MenuPerso.Controls.Add(Type:=1, Temporary:=True)
    With NewMenuItem2
        .Caption = "ma macro2"
        .OnAction = "macro2"
    End With