Supprimer d'une liste des enregistrements présent dans une autre liste.

Sub e()
débutliste = WorksheetFunction.Match("LISTE 1", Range("A:A"), 0) + 1
débutexclusion = WorksheetFunction.Match("EXCLUSION", Range("F:F"), 0) + 1
For i = débutexclusion To Range("F" & Rows.Count).Row
    doublon = WorksheetFunction.Match(Cells(i, 6), Range("A" & débutliste & ":A" & Rows.Count), 0)
    If Not IsError(doublon) Then
            Range("A" & doublon + débutliste - 1).Delete Shift:=xlUp
            Cells(i, 5).Value = "sup"
    Else
        MsgBox Cells(i, 6).Value & "n'est pas abonné"
    End If
Next
End Sub

Sub effacer()
Application.ScreenUpdating = False
Dim cellule As Range
For i = 6 To Range("A65535").End(xlUp).Row
For Each cellule In Range("F6:F" & Range("F65535").End(xlUp).Row)
If cellule = Cells(i, 1) Then Cells(i, 1).Delete Shift:=xlUp
Next cellule
Next i
Range("F6:F" & Range("F65535").End(xlUp).Row + 1).Delete
Application.ScreenUpdating = True
End Sub

Range("F6:F" & Range("F65535").End(xlUp).Row + 1).Delete