recherche grde valeur en Vba

Range("A2:C20").Sort Key1:=Range("B2"), Order1:=xlDescending
For i = 1 To 3
    Cells(i, 7) = Cells(i + 1, 1)
Next
Range("A2:C20").Sort Key1:=Range("A2"), Order1:=xlAscending

=INDEX(A3:A18;EQUIV(PETITE.VALEUR(RANG(B3:B18;B3:B18)-0,000000001*C3:C18;LIGNE(1:3));RANG(B3:B18;B3:B18)-0,000000001*C3:C18;0))

Sub grd_val()
Dim f As String
f = "RANK($B$3:$B$18,$B$3:$B$18)-0.000000001*$C$3:$C$18"
f = "=INDEX($A$3:$A$18,MATCH(SMALL(" & f & ",ROW($1:$3))," & f & ",0))"
[G1:G3].FormulaArray = Application.ConvertFormula(f, xlA1, xlR1C1)
[G1:G3].Value = [G1:G3].Value 'facultatif, supprime les formules
End Sub

Sub grd_val()
Dim f As String
f = "RANK(Position,Position)-0.000000001*Points"
f = "=INDEX(Equipes,MATCH(SMALL(" & f & ",ROW(R1:R3))," & f & ",0))"
[G1:G3].FormulaArray = f
[G1:G3] = [G1:G3].Value 'facultatif, supprime les formules
End Sub