Function Joindre(txt$, sep$, ref As Range, plage As Range)
If Application.CountIf(plage, "<>" & txt) = 0 Then Joindre = "Tous": Exit Function
Dim i&
txt = LCase(txt) 'minuscules
For i = 1 To plage.Count
If LCase(plage(i)) = txt Then Joindre = Joindre & sep & ref(i) 'concaténation
Next
Joindre = Mid(Joindre, Len(sep) + 1)
End Function