Microsoft 365 Supprimer les lignes doublantes qui ont le même identifiant

Sub Nettoie()
    Application.ScreenUpdating = False                  ' On fige l'écran
    DL = [A65000].End(xlUp).Row                         ' Dernière ligne de Résultat
    Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Insertion colonne en A
    f = "=SI(NB.SI($B$1:B2;B2)>1;CAR(1);0)"             ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A.
    With Range("A2:A" & DL)                             ' Plage où coller la formule en colonne A qui sera triée
        .FormulaLocal = f                               ' Coller formule
        .Value = .Value
        .EntireRow.Sort .Cells, xlDescending            ' Tri pour regrouper et accélérer
        .SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete ' Suppression des  lignes doublons
        [A:A].Delete Shift:=xlToLeft                    ' Effacement colonne formules
    End With
End Sub

Sub AucunDoublonColA()
   Range("a1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub