Microsoft 365 Copier-Coller plusieurs cellules en une seule

Dim x 'mémorise la variable

Sub Copier()
'raccourci clavier Ctrl+Z
Dim sep As String, c As Range
sep = vbLf 'séparateur à adapter (renvoi à la ligne)
For Each c In Selection
    x = x & sep & CStr(c) 'concaténation
Next
x = Mid(x, Len(sep) + 1)
End Sub

Sub Coller()
'raccourci clavier Ctrl+T
ActiveCell = x
End Sub

Dim x 'mémorise la variable

Sub Copier()
'raccourci clavier Ctrl+Z
Dim sep As String, a$(), c As Range, n&
sep = vbLf 'séparateur à adapter (renvoi à la ligne)
ReDim a(1 To Selection.Count)
For Each c In Selection
    n = n + 1
    a(n) = CStr(c)
Next
x = Join(a, sep) 'concaténation
End Sub

Sub Coller()
'raccourci clavier Ctrl+T
ActiveCell = x
End Sub