Macro afficher et masquer certaines feuilles

Bonjour

Je cherche une macro qui me sert de masquer et afficher (avec 2 boutons: un pour afficher et l'autre pour masquer) certaines feuilles (exemple feuille 4,5,6,7,8 qui portent des noms différents)

Merci d'avance

Bonjour,

A attacher aux boutons respectifs :

Sub Cacher()

    Worksheets(Array("Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8")).Visible = xlSheetHidden
    'ou :
    'Worksheets(Array(4, 5, 6, 7, 8)).Visible = xlSheetHidden

End Sub

Sub Afficher()

    Dim T As Variant
    Dim I As Integer

    T = Array("Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8")
    'ou :
    'T = Array(4, 5, 6, 7, 8)
    For I = 0 To UBound(T): Worksheets(T(I)).Visible = xlSheetVisible: Next I

End Sub

Trop fort !!!! ......Merci beaucoup Theze

Je t'en prie, content de t'avoir aidé

Bonsoir

a voir

d'écache tous les onglets

Sub Decache()
Dim Feuil As Object
Application.ScreenUpdating = False
   For Each Feuil In Worksheets
        Feuil.Visible = -1
   Next
End Sub

A+

Maurice

Bonsoir Anasimo,

Adaptation d'un récent fichier à ton besoin.

Les feuilles à cacher ou dévoiler sont

soit faites à l'unité ou faites en cumul de plusieurs feuilles selon sélection.

Voir fichier joint et code VBA.

Bonne continuation.

Bonjour Anisimo,

Ajout à mon fichier récent pour pouvoir désélectionner en mode cumul le nom d'un onglet choisi par erreur.

En le ré-sélectionnant tout simplement. Sa marque précédente de sélection disparait et il ne fait plus partie du cumul d'onglets

à traiter.

Bonne continuation.