Function F(libel As String, colonne As Range)
Dim i&, rc&
F = ""
i = Application.Caller.Row
rc = colonne.Rows.Count
If InStr(LCase(colonne(i)), LCase(libel)) = 0 Then Exit Function
If Application.Count(colonne(i + 1).Resize(rc - i)) = 0 Then Exit Function
Do
i = i + 1
If IsNumeric(CStr(colonne(i))) Then F = colonne(i): Exit Function
Loop While i < rc
End Function