Public Function RECHERCHEVTOP(MyCell As Range, MyIn As Range, MyOut As Range) As String
Dim ValMyCell As String
Dim LocalCell As Range
Dim LocalValCell As String
Dim Answer As String
Answer = ""
ValMyCell = MyCell.Value
Entete = True
For Each LocalCell In MyIn
LocalValCell = LocalCell.Value
If LocalValCell <> "" Then
Entete = False
Else: If Not Entete Then Exit For
End If
If (LocalValCell = ValMyCell) Then
Answer = MyOut.Cells(LocalCell.Row - MyIn.Cells(1, 1).Row + 1, 1).Value
Exit For
End If
Next
RECHERCHEVTOP = Answer
End Function