Merci à tous les deux, en fait ce n'est pas fusionner mais concaténer
je ne me souvenez plus de Chr(10) mais j'ai retrouvé et j'ai écris ce code :
Sub macro2()
Cells(1, 5) = Cells(1, 1)
For i = 2 To 4
Cells(1, 5) = Cells(1, 5) & Chr(10) & Cells(i, 1)
Next
End Sub