Afficher / Masquer onglets

Bonjour le forum

J'ai ce code pour afficher onglets

Que dois-je ajouter pour faire afficher masquer ou dois-je le "refonder"?

Merci à vous

Sub AfficherOnglets()
Dim Onglets As Worksheet

  For Each Onglets In Worksheets
    Onglets.Visible = True
  Next Onglets
End Sub

Bonjour,

Un petit exemple avec un bouton qui masque tous les onglets sauf la feuil1 (Modifier le nom de la feuille pour votre usage)

Bonjour M12

P$$$$$N j'ai oublié c'est par double click cellule A2

Merci à toi

Re,

Par double-clic

Re

Avec l'affichage en plus

Re M12

Merci à toi et toutes mes excuses pour les précisions du double click

Bonne journée

Cordialement