Function listeNomByref(rng As Range, valeur$)
Dim tr, t, i&, a&
tr = rng.Value
ReDim t(1 To 65535, 1 To 1) As String
For i = 1 To UBound(tr)
If "," & tr(i, 2) & "," Like "*," & valeur & ",*" Then a = a + 1: t(a, 1) = tr(i, 1)
Next
listeNomByref = t
End Function