Sub concatener()
Range("C1").Select
ActiveCell.FormulaR1C1 = "_" & Range("A1") & Chr(10) & "_" & Range("A2")
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End Sub