Fonction concatener mise en forme (bis)

Sub Concatene()
Dim X As Long
    
    Columns("C:C").Select
    Selection.Font.Bold = False
    Selection.Font.Italic = False
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.ClearContents
    
    For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
         c.Offset(0, 2) = c & " - " & c.Offset(0, 1)
          X = InStr(c.Offset(0, 2), " -")
           c.Offset(0, 2).Characters(Start:=1, Length:=X).Font.Bold = True
          c.Offset(0, 2).Characters(Start:=X, _
         Length:=Len(c.Offset(0, 2)) + 1 - X).Font.Italic = True
    Next
    
Range("A1").Select
End Sub

Sub ConcateneModifié()
Dim X As Long
tps = Timer
With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
End With
Columns("C:C").SpecialCells(2, 2).Clear
    For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row).SpecialCells(2, 2)
         With c.Offset(0, 2)
            .Value = c.Value & " - " & c.Offset(0, 1)
             X = InStr(.Value, " -")
             .Characters(1, X).Font.Bold = True
             .Characters(X, Len(.Value) + 1 - X).Font.Italic = True
         End With
    Next
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
[D1] = Timer - tps
End Sub

Columns("C:C").SpecialCells(2, 2).Clear

Sub ConcateneWith()
    Dim L As Long

    [FONT=monospace]Application.Calculation = xlCalculationManual[/FONT]
    Application.ScreenUpdating = False
    
       With [C:C]
             .ClearContents
             .Font.Bold = False
             .Font.Italic = True
             .Font.Underline = xlUnderlineStyleNone             
       End With
    
       For L = 1 To [A65536].End(xlUp).Row
             Cells(L, 3) = Cells(L, 1) & " - " & Cells(L, 2)
             With Cells(L, 3).Characters(1, Len(Cells(L, 1))).Font
                   .Bold = True
                   .Italic = False
             End With
       Next
    
       [A1].Select
     Application.ScreenUpdating = False
     [FONT=monospace]Application.Calculation =[/FONT] xlCalculationAutomatic

End Sub

Columns("C:C").Clear