Function MaConcaténation(Plage As Range, Séparateur As String) As String
Application.Volatile
Dim Cellule As Range
For Each Cellule In Plage
MaConcaténation = MaConcaténation & Séparateur & Cellule
Next
MaConcaténation = Right(MaConcaténation, Len(MaConcaténation) - Len(Séparateur))
End Function