Function CONCAT(V1 As Range, V2 As Range, cel As Range, sep$)
'V1 et V2 sont des vecteurs de même dimension
Dim d As Object, i&
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To V1.Count
If V2(i) = cel And Not d.exists(V1(i).Value) Then d(V1(i).Value) = ""
Next
CONCAT = Join(d.keys, sep)
End Function