Supprimer doublons 2 colonnes

[COLOR="DarkSlateGray"][B]Sub supprimerdoublons()
Dim oDat, sDat(), j&, k&, n&, x
   oDat = Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).Value
   n = 1
   ReDim sDat(1 To 2, 1 To n)
   sDat(1, n) = oDat(1, 1)
   sDat(2, n) = oDat(1, 2)
   For j = 2 To UBound(oDat, 1)
      x = oDat(j, 1) & "#" & oDat(j, 2)
      For k = 1 To n
         If sDat(1, k) & "#" & sDat(2, k) = x Then Exit For
      Next k
      If k > n Then
         n = k
         ReDim Preserve sDat(1 To 2, 1 To n)
         sDat(1, n) = oDat(j, 1)
         sDat(2, n) = oDat(j, 2)
      End If
   Next j
   Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).ClearContents
   Cells(1, 1).Resize(UBound(sDat, 2), 2) = WorksheetFunction.Transpose(sDat)
End Sub[/B][/COLOR]