XL 2016 supprimer les doublons

Sub SupressDoublonGrangesValeur()
Dim WS As Worksheet
Dim Ligne As Integer, x As Integer


Set WS = ThisWorkbook.Worksheets("Sheet1")

Ligne = WS.Range("A1000").End(xlUp).Row

With WS
        With .Cells(1, "A").CurrentRegion
            .Cells.Sort Key1:=.Range("A1"), Order1:=xlAscending, _
                        Key2:=.Range("B1"), Order2:=xlDescending, _
                        Orientation:=xlTopToBottom, Header:=xlYes
        End With
End With


With WS
    For x = 1 To Ligne
        If .Cells(x + 1, 1) = Cells(x, 1) Then
            WS.Rows(x).EntireRow.Delete
        End If
    Next x
End With

End Sub