Sub concat()
Dim i As Long, x As Long, y As String
i = Sheets("Feuil1").Cells(1, Columns.Count).End(xlToLeft).Column
[COLOR="Red"]y = Cells(1, 1)[/COLOR]
For x = [COLOR="red"]2[/COLOR] To i
y = y & [COLOR="red"]"."[/COLOR] & Cells(1, x)
Next x
Sheets("Feuil1").Range("A3") = y
End Sub