Function PlusProche(montant#, concat$, Pmontant As Range, Pconcat As Range)
Dim Tmontant, Tconcat, mini#, i&, dif#
Tmontant = Pmontant.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
Tconcat = Pconcat.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
mini = 1E+308
For i = 1 To UBound(Tmontant)
If Tconcat(i, 1) = concat Then
dif = Abs(Tmontant(i, 1) - montant)
If dif < 100 Then If dif < mini Then mini = dif: PlusProche = Tmontant(i, 1)
End If
Next
If mini = 1E+308 Then PlusProche = "Inconnu"
End Function