XL 2016 Mise En Forme d'un commentaire de cellule

Sub MEF_Commentaire_2(MaCellule As Range)
'
    If MaCellule.Comment Is Nothing Then Exit Sub

    MonTexte = MaCellule.Comment.Text
    Separation = InStr(1, MonTexte, ":" & Chr(10))
    Auteur = Trim(Left(MonTexte, Separation - 1)) & " :"
    MonComment = Right(MonTexte, Len(MonTexte) - Separation - 1)
    MonTexte = Auteur & Chr(10) & MonComment


    If MaCellule.Comment Is Nothing Then MaCellule.AddComment
    MaCellule.Comment.Text Text:=MonTexte

    AuteurDeb = 1
    AuteurNbCar = Len(Auteur)
    AuteurFin = AuteurDeb + AuteurNbCar - 1

    CommentDeb = AuteurFin + 2
    CommentNbCar = Len(MonComment)
    CommentFin = CommentDeb + CommentNbCar - 1

'    MaCellule.Comment.Shape.BackColor = RGB(127, 127, 255)

' ====================================================================
' Sans ces lignes, ça plante !...
' --------------------------------------------------------------------
    With MaCellule.Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(MaCellule.Comment.Text)).Font
        .Color = RGB(127, 127, 127)
        .Size = 8
        .Bold = False
        .Italic = True
    End With
' ====================================================================

    With MaCellule.Comment.Shape.TextFrame.Characters(Start:=AuteurDeb, Length:=AuteurNbCar).Font
        .Color = RGB(127, 127, 127)
        .Size = 8
        .Bold = False
        .Italic = True
    End With

    With MaCellule.Comment.Shape.TextFrame.Characters(Start:=CommentDeb, Length:=CommentNbCar).Font
        .Color = RGB(0, 0, 255)
        .Size = 10
        .Bold = True
        .Italic = False
    End With

    With MaCellule.Comment.Shape
        .Line.Style = msoLineSingle                 ' Type de trait (ex. : msoLineSingle)
        .Line.DashStyle = msoLineSolid              ' Type de pointillés (ex. : msoLineSolid)
        .Line.Weight = 2                            ' Épaisseur (ex. : 2)
        .Line.ForeColor.RGB = RGB(255, 0, 0)        ' Couleur (ex. : RGB(255, 255, 217))
    End With

    MaCellule.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
    MaCellule.Comment.Shape.TextFrame.AutoSize = True

End Sub

Range("A1").Comment.Shape.Fill.ForeColor.SchemeColor = 47      'Orange

MaCellule.Comment.Shape.Fill.ForeColor.RGB =RGB(255, 204, 153)     'Orange

    With MaCellule.Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(MaCellule.Comment.Text)).Font
'        .Color = RGB(127, 127, 127)
        .Size = 8
'        .Bold = False
'        .Italic = True
    End With

If MaCellule.Comment Is Nothing Then MaCellule.AddComment