Sub essai()
concac = ""
For Each cellule In Range([A1], [A1].End(xlDown))
concac = concac & cellule.Value
Next
MsgBox concac
End Sub
Sub essai()
texte = ""
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) <> "" Then texte = texte & Cells(i, 1).Value
Next i
Range("B2").Value = texte
End Sub