Mettre en gras une partie de formule [Résolu/Fermé]

Bonjour,

Je m'attendais à ce que la formule ci-dessus me mette en gras seulement une partie des caractères de la cellule mais ce sont tous les caractères qui sont en gras. Qu'est ce qui n'a pas fonctionné?

Sub gras()
'
' gras Macro
'

'
    Range("A39:F39").Select
    
    ActiveCell.FormulaR1C1 = "=R[-2]C[0] & R[-1]C[0]"
    With ActiveCell.Characters(Start:=1, Length:=12).Font.FontStyle = "Gras"
        Selection.Font.Bold = False
    
    End With
    
    With ActiveCell.Characters(Start:=13, Length:=fin).Font.FontStyle = "Gras"
        Selection.Font.Bold = True
    
    End With
End Sub