[VBA] Extraire un ou plusieurs mots d'une liste

Bonsoir !

J'ai une macro qui me sort la liste des noms des feuilles présentes dans le classeur et j'aimerais savoir s'il est possible d'y exclure un ou plusieurs mots (ex : pomme ou pomme et banane).

Le code de base :

Sub Snamelist()
Dim i As Integer

    Range("B5").Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Merci de votre aide !

Bonjour,

S'il s'agit de ne pas reporter certains noms de feuille, par exemple:

 For i = 1 To Sheets.Count
        If WorkSheets(i).Name<> "pomme" and WorkSheets(i).Name<> "pomme et banane" Then
           ActiveCell.Value = Sheets(i).Name
           ActiveCell.Offset(1, 0).Select
        End If
    Next i

A+

Merci beaucoup !