Function Filtrer$(r As Range, sep$, Optional titre$)
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
For Each r In Intersect(r, r.Parent.UsedRange)
If r.RowHeight And r <> titre Then d(r.Value) = ""
Next
Filtrer = Join(d.keys, sep)
End Function