VBA: Comparer plusieurs lignes entre elles (Eviter les doublons)

W = 7

While Cells(W, 2).Value <> ""
W = W + 1
Wend

'W représente désormais la dernière ligne du tableau 

If Cells(N, 2).Value = Cells(B, 2).Value And Cells(N, 3).Value = Cells(B, 3).Value And Cells(N, 4).Value = Cells(B, 4).Value And Cells(N, 5).Value = Cells(B, 5).Value And Cells(N, 6).Value = Cells(B, 6).Value And Cells(N, 7).Value = Cells(B, 7).Value Then

Cells(N, 1).EntireRow.Delete
End If

DL = Worksheets("Feuil1").Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet Feuil1

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim PE As Range 'déclare la variable PE (Plage à Effacer)
Dim I1 As Long 'déclare la variable I1 (Incrément 1)
Dim I2 As Long 'déclare la variable I2 (Incrément 2)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
TV = O.Range(O.Cells(7, "B"), O.Cells(DL, "W")) 'définit le tableau des valeurs TV
Set PE = O.Range("A1") 'initialise la plage à effacer PE
For I1 = 1 To UBound(TV, 1) 'boucle 1 : sur toutes les lignes I1 du tableau des valeurs TV
    For I2 = 1 To UBound(TV, 1) 'boucle 2 : sur toutes les lignes I2 du tableau des valeurs TV
        If I1 = I2 Then GoTo suite 'si I1 est égale à I2, va à l'étiquette "suite"
        'définit la valeur VL1 de la ligne I1 (toutes les données de la lignes séparée par un espace)
        VL1 = Join(Application.Index(TV, I1), " ")
        'définit la valeur VL2 de la ligne I2 (toutes les données de la lignes séparée par un espace)
        VL2 = Join(Application.Index(TV, I2), " ")
        'si VL2 est égale à VL1 redéfinit la plage à effacer PE
        If VL2 = VL1 Then Set PE = IIf(PE.Cells.Count = 1, O.Rows(I2 + 6), Application.Union(PE, O.Rows(I2 + 6)))
suite: 'étiquette
    Next I2 'prochaine ligne de la boucle 2
Next I1 'prochaine ligne de la boucle 1
PE.Delete 'supprime la plage PL
End Sub