Qu'est ce qui ne va pas?

Bonjour,
J'ai créé un code, ci joint

Sub choixmethode()
type_print = MsgBox("type methode choisie", vbYesNo, "choix")
Select Case Methode
Case vbYes
Worksheet("Feuil2").Visible = True
Worksheet("Feuil2").Activate
Case vbNo
Worksheet("Feuil3").Visible = True
Worksheet("Feuil3").Activate
End Select
End Sub

tt fonctionne bien, mais si je masque les feuilles 2 et 3 elles ne s'affichent plus par la commande... avez vous une solution?

Merci
Cordialement

Guillaume