Utilisation de CommandBarPopup avec Excel 2013

Bonjour,

je travaille actuellement sur une application Excel/VBA, et pour naviguer entre les differentes excel, j 'ai des icones qui affiche un menu en pop up (voir code si dessous)

Sub CreateDisplayPopUpMenu_Settings()
    'Delete PopUp menu if it exist
    Call DeletePopUpMenu(MenuSettings)
    'Create the PopUpmenu
    Call PopUpMenu_Settings
    'Show the PopUp menu
    Call ShowPopUpMenu(MenuSettings)

End Sub
Sub DeletePopUpMenu(Menu)
    'Delete PopUp menu if it exist
    On Error Resume Next
    Application.CommandBars(Menu).Delete
    On Error GoTo 0
End Sub

Private Sub PopUpMenu_Settings()
    Dim MenuItem As CommandBarPopup
    With Application.CommandBars.Add(Name:=MenuSettings, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)

        With .Controls.Add(Type:=msoControlButton)
            .Caption = "Introduction"
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "GotoIntro"

        End With

        With .Controls.Add(Type:=msoControlButton)
            .BeginGroup = True
            .Caption = "Model overview"
            .OnAction = "'sheetActivate """ & .Caption & """'"

        End With

        With .Controls.Add(Type:=msoControlButton)
            .BeginGroup = True
            .Caption = "Model settings"
            .OnAction = "'sheetActivate """ & .Caption & """'"

        End With
    End With

End Sub

Ce code a l air de fonctionner parfaitement avec Excel 2010. Le probleme c est sur 2013.

Dès que l'execution est terminée, et que je suis sur une feuille, la navigation sur la feuille avec la molette de la souris est impossible. La barre de defilement bouge mais rien ne se passe. On est alors obligé de cliquer sur une cellule pour débloquer, enfin cette solution ne marche pas toujours, du coup obligé de changer manuellement de feuille.