Public Function Searchvalue(Val As Date, Start As Range, Nbcol As Integer)
Dim a As Range, c As Double, x As Integer, y As Integer
Application.ScreenUpdating = False
y = Start.Column
x = Start.Row
Do Until Cells(x, y).Value >= Val
x = x + 1
Loop
c = Cells(x, y + Nbcol)
Searchvalue = c
Application.ScreenUpdating = True
End Function