Function EcartMini(c As Range, Optional decal As Double)
Dim tablo, v As Double, i As Long
With c.Parent.UsedRange
tablo = c.Resize(.Row + .Rows.Count - c.Row + 1) 'matrice, plus rapide, au moins 2 éléments
End With
v = c + decal
For i = 2 To UBound(tablo)
If tablo(i, 1) >= v Then EcartMini = i - 1: Exit Function
Next
EcartMini = "" 'si aucune valeur trouvée
End Function