Function RechercherDans(xtexte As String, ParamArray xreference())
Dim i&, n&, npos&, refpos$
npos = Len(xtexte) + 1
For i = LBound(xreference) To UBound(xreference) Step 2
n = InStr(1, xtexte, xreference(i), vbTextCompare)
If n > 0 And n < npos Then npos = n: refpos = xreference(i + 1)
Next i
RechercherDans = IIf(npos = Len(xtexte) + 1, CVErr(xlErrRef), refpos)
End Function