XL 2016 Format dans formule / phrase

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ObfFont As Object
Dim TexteAvant As String, TexteAprès As String
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Application.EnableEvents = False
        TexteAvant = "Reporter ce montant "
        TexteAprès = " correspondant à la dernière vente"
        Range("C5") = TexteAvant & Format(Range("C3").Value, "# ##0.00 €") & TexteAprès
        Set ObfFont = Range("C5").Characters(Len(TexteAvant), Len(Range("C5")) - Len(TexteAvant) - Len(TexteAprès) + 1).Font
        ObfFont.Color = vbRed
        ObfFont.Bold = True
        Set ObfFont = Nothing
        Application.EnableEvents = True
    End If
End Sub