Fonction excel

Function SansDoublon(Source As Range, Rang As Long, Trier As Boolean) As Variant
    ' si rang =0 retourne le nombre d'éléments différents de Source
    ' si rang>0 et trier=0 est retourné nième (rang) élément de la liste sans doublon non triée
    ' si rang>0 et trier=1 est retourné nième (rang) élément de la liste sans doublon triée
    Dim datas() As Variant, tmp As Variant
    Dim i As Long, j As Long, k As Long, nbval As Long
    If Source.Areas.Count > 1 Then Exit Function
    If Source.Columns.Count > 1 Then Exit Function
    If Source.Rows.Count < 2 Then Exit Function
    
    datas() = Source.Value
    dernier = UBound(datas, 1)
    nbval = dernier
    ' effacer doublons
    For i = 1 To dernier - 1
        For j = i + 1 To dernier
            If datas(i, 1) = datas(j, 1) And datas(i, 1) <> "" Then
                datas(j, 1) = ""
            End If
        Next j
    Next i
    ' éliminer vides
   i = 0
    While i < nbval
        i = i + 1
        If datas(i, 1) = "" Then
            nbval = nbval - 1
            For j = i To nbval
                datas(j, 1) = datas(j + 1, 1)
            Next j
        End If
    Wend
    If Trier Then
        While Not fini
            fini = True
            For i = 1 To nbval - 1
                If datas(i, 1) > datas(i + 1, 1) Then
                    tmp = datas(i, 1)
                    datas(i, 1) = datas(i + 1, 1)
                    datas(i + 1, 1) = tmp
                    fini = False
                End If
            Next i
        Wend
    End If
    If Rang = 0 Then
        SansDoublon = nbval
    ElseIf Rang <= nbval Then
        SansDoublon = datas(Rang, 1)
    Else
        SansDoublon = ""
    End If
End Function

Function surfaceCercle(r)
    surfaceCercle = 3.14 * r ^ 2
End Function