'************
'Ton code VBA qui boucle sur les feuilles de ton classeur ici
'************
Dim WS_Exclusion as Worksheet
Set WS_Exclusion = Worksheets("Feuille_Exclusion")
Dim fin_Exclusion as Long
Dim pcs_Exclusion as Long
fin_Exclusion = WS_Exclusion.Range("A65536").end(xlup).row 'Devrait donner 21 comme résultat
Dim b_A_Exclure as boolean
b_A_Exclure = False
If fin_Exclusion = 1 Then Goto Fin_Verif_Exclusion 'On considère que tu as une ligne de titre, donc si on tombe dessus, pas d'exclusion, on sort
For pcs_Exclusion = 2 to fin_Exclusion
If ActiveSheet.Name = WS_Exclusion.Cells(pcs_Exclusion,1).value then
b_A_Exclure = True
exit for
End if
Next pcs_Exclusion
Fin_Verif_Exclusion:
If not (b_A_Exclure) Then
'Ton traitement de copie ici
End if
'*************
'La fin de ta boucle sur les feuilles du classeur ici
'*************