Sub Concatener()
Dim result As Range, i&, c As Range
Set result = [F1] 'en-tête du tableau
result.EntireColumn.Font.Name = result.Font.Name 'RAZ
With [A1].CurrentRegion
For i = 2 To .Rows.Count
Set c = .Cells(i, 1)
result(i) = c & c(1, 2) & c(1, 3)
If c <> "" Then result(i).Characters(1, Len(c)).Font.Name = c.Font.Name
Next
End With
result(i).Resize(Rows.Count - i + 1).ClearContents 'RAZ
End Sub