Function ConcatRecherche$(cible As Range, P As Range, sep$)
Dim x$, tablo, c As Range
x = CStr(cible)
Set P = Intersect(P, P.Parent.UsedRange)
If x = "" Or P Is Nothing Then Exit Function
For Each c In P.Columns().Cells
If CStr(c) = x Then ConcatRecherche = ConcatRecherche & sep & CStr(c(1, 2))
Next
ConcatRecherche = Mid(ConcatRecherche, Len(sep) + 1)
End Function