Sub Test()
For F = 1 To ThisWorkbook.Sheets.Count 'Parcours toutes les feuilles du classeur
Select Case Sheets(F).Name
Case Is = "TOTO", "TITI" 'Liste des feuilles à NE PAS PRENDRE EN COMPTE séparée par ,
MsgBox Sheets(F).Name & " ne sera pas pris en compte"
Case Else
MsgBox "TRAITEMENT a faire sur " & Sheets(F).Name
End Select
Next F
End Sub