Function sollic(sol As String, chargt, abscisse As Double)
Dim Cell As Range
longueur = Range('Longueur') + 1000000
Sheets('LISTING').activate
Select Case sol
Case hello 'sol='hello' ?
sollic = 'hello'
Case t
For j = 10000 To 1 step -1
If Cells(j,1).Value = longueur And _
Cells(j,2).Value = abscisse Then
Set Cell = Range('C' & j & ':D' & j)
Exit for
End If
Next j
sollic = MaxRel(Cell)
Case else
sollic = 'Pas de valeur'
End Select
End Function