Public Function Concat(Source As Range, Separateur As String, Optional SansVide As Boolean) As String
'------------------------------------------------------------------------------
' concatène chaque cellule de la source - avec le séparateur Separateur
' avec les cellules vides si SansVide est omis ou égal à FAUX
' sans les cellules vides si SansVide est égal à VRAI
'------------------------------------------------------------------------------
Dim xcell As Range, i As Long
If Source.Count = 0 Then Exit Function
If IsMissing(SansVide) Then SansVide = False
For Each xcell In Source
If Not SansVide Or Len(xcell.Value) > 0 Then Concat = Concat & Separateur & xcell.Value
Next xcell
If Len(Separateur) > 0 Then Concat = Mid(Concat, Len(Separateur) + 1)
End Function