Function concatenation(liste, separateur)
Dim res As String
Dim i As Long, nb As Long
nb = UBound(liste.Value)
For i = 1 To nb
If liste(i, 1).Value <> "" Then
If res <> "" Then res = res + separateur
res = res + liste(i, 1).Value
End If
Next i
concatenation = res
End Function