Boucle sur les feuilles mais avec des exclusions

    '************
    '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
    '*************