Function SuperConcaténer(Plage As Range, Séparateur As String) As String
Dim Cellule As Range
For Each Cellule In Plage
SuperConcaténer = SuperConcaténer & Séparateur & Cellule
Next Cellule
SuperConcaténer = Right(SuperConcaténer, Len(SuperConcaténer) - Len(Séparateur))
End Function