Function valProche(cellule As Range, plage As Range, Optional ecart As Long = 5) As Long
Dim datas, c As Range, lig As Long, col As Long
datas = plage.Value
For lig = UBound(datas, 1) To 1 Step -1
For col = 1 To UBound(datas, 2)
If Abs(datas(lig, col) - cellule) <= ecart Then
valProche = datas(lig, col)
Exit Function
End If
Next col
Next lig
End Function