Supprimer doublons particuliers (plage de cellule)

Sub Test()
Application.ScreenUpdating = False
DerLig = Range("A65536").End(xlUp).Row
For L = DerLig To 1 Step -2
    Chaine1 = "|"
    Dercol = Cells(L - 1, 256).End(xlToLeft).Column
        For C = 1 To Dercol
        Chaine1 = Chaine1 & Cells(L - 1, C) & "|"
        Next C
    Dercol = Cells(L, 256).End(xlToLeft).Column
        For C = 1 To Dercol
        Chaine1 = Chaine1 & Cells(L, C) & "|"
        Next C
            For I = 1 To L - 2 Step 2
            Chaine2 = Chaine1
            Dercol = Cells(I, 256).End(xlToLeft).Column
                For J = 1 To Dercol
                Compare = Cells(I, J)
                Chaine2 = Replace(Chaine2, Compare, "", 1, 1)
                Next J
                Dercol = Cells(I + 1, 256).End(xlToLeft).Column
                    For J = 1 To Dercol
                    Compare = Cells(I + 1, J)
                    Chaine2 = Replace(Chaine2, Compare, "", 1, 1)
                    Next J
                    Chaine2 = Replace(Chaine2, "|", "", 1)
                    If Chaine2 = "" Then
                    Rows(L).Delete
                    Rows(L - 1).Delete
                    I = I + 2
                    End If
            Next I
Next L
Application.ScreenUpdating = False
End Sub

 Sub ComparePlages()
Dim Arr1, Arr2, Flag
  Arr1 = Range("A1:D500").Value
  Arr2 = Range("F1:I500").Value
  Flag = True
  For i = LBound(Arr1, 2) To UBound(Arr1, 2)
    For j = LBound(Arr1, 1) To UBound(Arr1, 1)
      If Not Arr1(j, i) = Arr2(j, i) Then
        Flag = False: Exit For
      End If
    Next j
    If Not Flag Then Exit For
  Next i
  MsgBox "Plages identiques : " & Flag
End Sub
End Sub