Function Resu(Cle1Cle2 As String, Pivot As Double, ConcatCle, Bornes, Valeur)
Dim i&, maxi#
ConcatCle = ConcatCle.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
Bornes = Bornes.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
Valeur = Valeur.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(ConcatCle)
If ConcatCle(i, 1) = Cle1Cle2 Then _
If Bornes(i, 1) <= Pivot Then _
If Bornes(i, 1) > maxi Then maxi = Bornes(i, 1): Resu = Valeur(i, 1)
Next
End Function