XL 2016 Conserver les données uniques (VBA)

Sub DEDOUBLONNAGE_NUM_BON()
    Dim Plage As Range
    '
    ' Définition de la plage des données ( sans les 2 lignes d'entête)
    With ThisWorkbook.Sheets("ENCOURS GAR MTP ").Range("A4").CurrentRegion
        Set Plage = .Offset(2).Resize(.Rows.Count - 2)
    End With
    '
    '
    With Plage.Columns(Plage.Columns.Count + 1)
        '
        ' Si N° bon est en double, mettre un x sinon un 0
        .Formula = "=IF(COUNTIF(" & Plage.Columns(5).Address(True, True) & ",$E6)>1,""x"",0)"
        '
        ' Sélectionner les cellules ayant un texte dans la plage
        ' puis supprimer les lignes correspondantes
        On Error Resume Next    'Erreur si aucune occurence n'est trouvée
        Intersect(Plage, .SpecialCells(xlCellTypeFormulas, 2).EntireRow).Delete xlShiftUp
        On Error GoTo 0
        '
        ' on vide la colonne
        .Value = Empty
    End With
End Sub