ECEL - VBA - suppression de lignes si valeur est contenue dans la liste

Sub Macro1()
Dim dls As Integer 'déclare la variable dls (Dernière Ligne de la colonne S)
Dim dlq As Integer 'déclare la variable dlq (Dernière Ligne de la colonne Q)
Dim plq As Range 'déclare la variable plq (PLage de la colonne Q)
Dim li As Integer 'déclare la variable li (LIgne)
Dim cq As Range 'déclare la variable cq (Cellule de la colonne Q)

With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dls = .Cells(Application.Rows.Count, 19).End(xlUp).Row 'définit la dernière ligne dls de la colonne s
    dlq = .Cells(Application.Rows.Count, 17).End(xlUp).Row 'définit la dernière ligne dlq de la colonne q
    Set plq = .Range("Q1:Q" & dlq) 'définit la plage de la colonne q
    For li = dls To 1 Step -1 'boucle 1 : inversée de la dernière ligne de la colonne s à la première
        For Each cq In plq 'boucle 2 : sur toutes les valeurs de la plage plq
            If .Cells(li, 19) = cq.Value Then 'conditon : si les deux cellules sont égales
                'suprime les cellules de la ligne des colonne A à 0 en décalant les cellules vers le haut
                .Cells(li, 1).Resize(1, 15).Delete shift:=xlShiftUp
                Exit For 'sort de la boucle 2
            End If 'fin de la condition
        Next cq 'prochaine cellule de la boucle 2
    Next li 'prochaine cellule de la boucle 1
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub