Afficher/Masquer des formes

Bonjour à tous

J'ai un petit soucis dans ma programmation.
Je souhaite faire afficher mes 3 premières lignes comme une barre de menu.

J'ai deux boutons Afficher ou Fermer pour y parvenir.
Malheureusement mon code plante pour mon bouton "Menu".

Sub MenuMasquer()
' MenuMasquer Macro
    Application.ScreenUpdating = True
'---------------------------------------------------------------------------------------------------------------------------
    Rows("1:3").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
    ActiveSheet.Shapes("BoutonMenu").Visible = True
'---------------------------------------------------------------------------------------------------------------------------
    Application.ScreenUpdating = True
End Sub

Sub MenuAfficher()
' MenuMasquer Macro
    Application.ScreenUpdating = True
'---------------------------------------------------------------------------------------------------------------------------
    Rows("1:3").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    ActiveSheet.Shapes("BoutonMenu").Visible = False
'---------------------------------------------------------------------------------------------------------------------------
    Application.ScreenUpdating = True
End Sub

ça bugue sur:

ActiveSheet.Shapes("BoutonMenu").Visible = True

ActiveSheet.Shapes("BoutonMenu").Visible = False

Est-ce que vous pouvez éclairer mon chemin ?

Merci de votre intérêt.

Coordialement

Willau

Bonjour

Un essai à testet. Te convient-il ?

Bye !