Public Function ConcSep(InCells As Range, Sep As String) As String
'SOURCE:http://www.chalouhis.com/XLBLOG/archives/2005/02/03/concatenate-with-separators/
'exemple d'utilisation: =concsep(A1:A10;";")
Dim OutStr As String
Dim Cell As Variant
OutStr = ""
If InCells Is Nothing Then Exit Function
On Error Resume Next
For Each Cell In InCells
OutStr = OutStr & Cell.Value & Sep
Next Cell
OutStr = Left(OutStr, Len(OutStr) - Len(Sep))
ConcSep = OutStr
End Function