éliminer lignes en doublon

Sub es()
 Dim m As Object, i As Long, z As Variant
    Application.ScreenUpdating = False
    Set m = CreateObject("Scripting.Dictionary")
       For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      z = UCase(Cells(i, 1)) & UCase(Cells(i, 2))
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 3) = "ok"
       Else
          Cells(i, 3) = "doublons"
      End If
      z = UCase(Cells(i, 2)) & UCase(Cells(i, 1))
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 3) = "ok"
       Else
          Cells(i, 3) = "doublons"
      End If
      Next i
End Sub

Sub est()
 Dim m As Object, i As Long, z As Variant
    Application.ScreenUpdating = False
    Set m = CreateObject("Scripting.Dictionary")
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      z = Cells(i, 1) & Cells(i, 2)
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 4) = "ok"
       Else
          Cells(i, 4) = "doublons"
      End If
      z = Cells(i, 2) & Cells(i, 1)
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 4) = "ok"
       Else
          Cells(i, 4) = "doublons"
      End If
      Next i
End Sub

Sub aa()
Dim i As Long, j As Long, x, z As Variant
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
x = Cells(i, 1) & Cells(i, 2)
For j = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
z = Cells(j, 2) & Cells(j, 1)
If x = z Then Range(Cells(i, 1), Cells(i, 2)).Delete Shift:=xlUp
Next j: Next i
End Sub