Suppression ligne dupliquées en fonction d'une valeur

Sub suppDoublons()
    Dim datas As Variant, lig As Long, nbLig As Long, derlig As Long
    Dim cle As String, maxi As Double, ligMaxi As Long
    Dim result() As Variant, ligResult As Long, col As Long
    
    If sepDec() <> "." Then
        Columns("N:N").Replace What:=",", Replacement:="."
    End If
    Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
    datas = Range("A1").CurrentRegion
    derlig = UBound(datas)
    ReDim result(1 To derlig, 1 To UBound(datas, 2))
    lig = 1: ligResult = 1: nbLig = 1: ligMaxi = 1
    Do
        If lig > 1 Then
            cle = datas(lig, 1)
            nbLig = Application.CountIf([A:A], cle)
            maxi = Application.Max(Cells(lig, "N").Resize(nbLig))
            ligMaxi = lig + Application.Match(maxi, Cells(lig, "N").Resize(nbLig), 0) - 1
            ligResult = ligResult + 1
        End If
        For col = 1 To UBound(datas, 2)
            result(ligResult, col) = datas(ligMaxi, col)
        Next col
        lig = lig + nbLig
    Loop Until lig > derlig
    Range("A1").CurrentRegion = result
End Sub

Private Function sepDec() As String
    'retourne le séparateur décimal utilisé
    If Application.UseSystemSeparators Then
        sepDec = Application.International(xlDecimalSeparator)
    Else
        sepDec = Application.DecimalSeparator
    End If
End Function