Sub Concatenation()
Dim Tablo As Variant
Dim i As Integer
With Feuil1
Tablo = .Range(.Range('A1'), .Range('B65536').End(xlUp))
For i = 1 To UBound(Tablo)
Tablo(i, 1) = Tablo(i, 1) & ' ' & Tablo(i, 2)
Next
.Range(.Range('B1'), .Range('B65536').End(xlUp)) = Tablo
End With
End Sub