Function Nieme(colonne As Range, n&)
Dim t, d As Object, i&
Nieme = ""
If Application.Count(colonne) = 0 Then Exit Function
t = colonne.Resize(Application.Match(9 ^ 9, colonne)) 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t)
If IsNumeric(CStr(t(i, 1))) Then d(t(i, 1)) = "" 'élimine les doublons
Next
If d.Count >= n Then Nieme = Application.Large(d.keys, n) 'GRANDE.VALEUR
End Function