Function RECHERCHEVPREC(cible As Range, plage, L%)
Application.Volatile
Dim feuille As Worksheet
Set feuille = Worksheets(Application.Caller.Parent.Index - 1)
RECHERCHEVPREC = Application.VLookup(cible, feuille.Range(plage.Address), L, 0)
End Function