Function RechTous(ByVal V As Variant, ByVal Plage As Range, ByVal Séparateur As String) As String
Dim TabEnt() As Variant, TabSor() As String, Le As Long, Ls As Long
TabEnt = Intersect(Plage, Plage.Worksheet.UsedRange).Value
If TypeName(V) = "Range" Then V = V.Value
For Le = 1 To UBound(TabEnt)
If TabEnt(Le, 1) = V Then ReDim Preserve TabSor(0 To Ls): TabSor(Ls) = TabEnt(Le, 2): Ls = Ls + 1
Next Le
If Ls > 0 Then RechTous = Join(TabSor, Séparateur) Else RechTous = ""
End Function