j'espere que l'exemple ci dessous pourra t'aider . Feuil1 et Feuil3 sont exclues de la boucle
Sub BoucleFeuilles()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Sheets
If Ws.Name <> "Feuil1" And Ws.Name <> "Feuil3" Then
.........
la macro
........
End If
Next Ws
End Sub