Sub Contaténer()
Dim Te(), Ts(), L&, C&, Z$
Te = Feuil1.UsedRange.Value
ReDim Ts(1 To UBound(Te), 1 To 1)
For L = 1 To UBound(Te, 1)
Z = ""
For C = 1 To UBound(Te, 2)
Z = Z & Te(L, C): Next C
Ts(L, 1) = Z: Next L
Feuil4.Cells(1, 1).Resize(UBound(Ts, 1)) = Ts
End Sub