Function RECHVAL#(plage1 As Range, plage2 As Range, col As Byte)
'plage1 => 1 colonne, plage2 => 2 colonnes
Dim r As Range, lig As Range
Set r = plage1(plage1.Count)
Set lig = plage1.Find(r, r, xlValues, xlWhole, , xlPrevious).EntireRow
If lig.Row < r.Row Then RECHVAL = Intersect(lig, plage2)(1, col)
End Function