Re : Coller en VBA dans une cellule
essaie de remplacer les chr(10) par des vblf
[d1] = "Salut" & Chr(10) & "ceci est" & Chr(10) & "un test"
maVar = [d1]
maVar = Replace(maVar, Chr(10), vbLf)
[d4] = maVar
Pour la dernière cellule, tu peux aussi utiliser
Derli = columns(1).find ("*",,,,,xlprevious).row
range("A1:A" & derli).copy range("C1:C" & derli)