Function Concaténer(ByVal Rng As Range, Optional ByVal Sép As String = "")
Dim TV(), L As Long, C As Long, TC() As String, N As Long
TV = Rng.Value
ReDim TC(1 To UBound(TV, 1) * UBound(TV, 2))
For L = 1 To UBound(TV, 1): For C = 1 To UBound(TV, 2)
N = N + 1: TC(N) = TV(L, C): Next C, L
Concaténer = Join(TC, Sép)
End Function