Problème mise en forme avec macro ajout texte dans zonetexte

Bonjour à tous,

Nouveau dans le monde de la macro, j'aurais grandement besoin de vos lumières aguerries ^^

Dans le but de simplifier la rentrée de données de suivi dans une zone texte, j'ai souhaité créer une macro me permettant de rentrer le texte voulu via une inputbox puis de coller celui-ci dans une zone texte prédéfinie suivi de nom+date.

Malheureusement, bien que la macro marche, à chacune de ses exécutions, elle me change la Mise en Forme qui existait alors dans la zone texte concernée.

Serait-il possible que cela ne soit pas le cas? Je souhaiterai pouvoir avoir le nom+date dans une police et une couleur différente pour faciliter la lecture.

Voici le code qui me permet de réaliser ça:

Sub WaiRa()
'
' WaiRa Macro
' signe WaiRa+Date
'
' Touche de raccourci du clavier: Ctrl+l
'
Dim Comm$, Signature$, Commentaires, X As Long
Comm = ActiveSheet.Shapes("Suivi").TextFrame2.TextRange
Signature = ("WaiRa") & Format(Date, "\_dd/mm")
Commentaires = Commentaires & Comm & vbCrLf & ("-->  ") & InputBox("Saisir commentaire suivi:")
X = Len(Commentaires) * 1
With ActiveSheet.Shapes("Suivi")
    .TextFrame2.TextRange = Commentaires & vbCrLf & Signature
    .TextFrame.Characters.Font.ColorIndex = 3
    .TextFrame.Characters.Font.Size = 14
   With .TextFrame.Characters(Start:=1, Length:=X).Font
    .Name = "Calibri Light": .Bold = True
    .ColorIndex = 3
    End With
    With .TextFrame.Characters(Start:=X + 1, Length:=Len(Signature) + 1).Font
    .Name = "Bradley Hand ITC": .Bold = True
    .ColorIndex = 23
    End With
End With
End Sub

Merci d'avance à ceux qui tenteront (et parviendront^^) de me venir en aide,

Bonne soirée,

Cdlt,

WaïRa

PS: avec un fichier, c'est mieux