Afficher les onglets selon leur nom

Bonjour à tous,

je souhaiterai créer un fichier Excel avec, sur le premier onglet, une cellule dans laquelle j’écris un mot et qu’en appuyant sur un bouton cela m’affiche tous les onglets comportant ce mot dans leurs titres et que tous ceux ne comportant pas ce mot soient cachés.

Merci de votre aide :)

Bonjour,

Une piste :

Sub AfficheFeuilles()

Dim Sh As Worksheet

With Sheets("Accueil") 'Nom onglet à adapter
    For Each Sh In Worksheets 'Boucle sur les feuilles
        If Not Sh.Name = .Name Then
            If Sh.Name Like "*" & .Range("A1") & "*" Then Sh.Visible = -1 Else Sh.Visible = 0 'Affiche l'onglet si correspondance partielle, sinon masque
        End If
    Next Sh
End With

End Sub

Merci Pedro22 ça fonctionne nickel 😀