Commentaire cellule

Bonjour,

Ce code me permet de remplir un commentaire dans certaines cellules. Ma question est que je souhaite écrire en taille 14 dans le commentaire. Comment intégrer à ce code?

Merci à vous

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C7:AG60,AL7:BP60,BT7:CX60,DB7:EF60,EJ7:FN60,FR7:GV60,GZ7:ID60,IH7:JL60,JP7:KT60,KX7:MB60,MF7:NJ60,NN7:OR60")) Is Nothing Then
If Target = "" Then Target.ClearComments
If Target <> "" Then
    Target.ClearComments
    Target.AddComment
    Target.Comment.Text Text:=InputBox("Entrez votre commentaire")

End If
End If
End Sub

Bonsoir,

En regardant un peu la syntaxe...

    Target.Comment.Shape.TextFrame.Characters.Font.Size = 14

... devrait faire !

Cordialement.

Bonsoir,

Oui effectivement!!!

Merci