Sub DirFeuilles()
Dim ws As Worksheet
Dim i As Integer
With ThisWorkbook
'Inclusion des feuilles qui seront traitées
For Each ws In .Sheets(Array("Client 1", "Client 2", "Client 3", "Client 4"))
Debug.Print ws.Name
Next
'Exclusion des feuilles qui ne seront pas traitées
For i = 1 To ThisWorkbook.Sheets.Count
If IsError(Application.Match(.Sheets(i).Name, Array("Bouton", "Bloquage", "Extraction", "Autres Clients", "Synthèse"), 0)) Then
Debug.Print .Sheets(i).Name
End If
Next i
End With
End Sub