Deux Font-Size différentes dans un commentaire en VBA

Bonjour

j'ai une macro qui génère des commentaires mais je n'arrive pas

a trouver le code pour faire une entête en Font.Size a 11 et le reste en 9

Sub No_text_comment()

' pour mettre les entête des comments
Application.ScreenUpdating = False
 Sheets("RDV").Select

    Range("J2").Select
    Range("J2").Comment.Text Text:="        Maladie" & Chr(10) & " ----------------------" & Chr(10) & ""
    'Range("J2").Characters(InStr(1, Range("J2").Value, "Maladie"), Len("Maladie")).Font.Size = 16

    Range("J2").Comment.Shape.TextFrame.Characters.Font.Size = 11

    Chr (10) & " " & Chr(10) & ""

    Range("L2").Select
    Range("L2").Comment.Text Text:="    Partie du corps" & Chr(10) & " ---------------------- " & Chr(10) & ""

    Range("N2").Select
    Range("N2").Comment.Text Text:="    Médicaments " & Chr(10) & " ----------------------" & Chr(10) & ""

    Range("P2").Select
    Range("P2").Comment.Text Text:="      Générique " & Chr(10) & " ----------------------" & Chr(10) & ""

    Range("R2").Select
    Range("R2").Comment.Text Text:="       Posologie" & Chr(10) & " ----------------------" & Chr(10) & ""

    Range("T2").Select
    Range("T2").Comment.Text Text:="         Info Doc" & Chr(10) & " ----------------------" & Chr(10) & ""

' générique pour mettre le (=) en  colonne  "o"

    Range("O2").Select
    ActiveCell.FormulaR1C1 = " ="
    Application.ScreenUpdating = True
    Call CalageCommentaire
End Sub

Merci d'avance

Bonjour,

tu y étais presque :

Range("J2").Comment.Shape.TextFrame.Characters(1,10).Font.Size = 16

là 10 caractères, met la bonne taille
eric

Bonjour et merci

Range("J2").Comment.Shape.TextFrame.Characters(40).Font.Size = 9

il m'a fallu un certain avant de comprendre que ce qu'il y a entre parenthèse c'est le nombre de lettres avant que l'ordre soit donnée pour

passer a la font size a 9 parce-que la macro qui m’insère le commentaire s'appuie sur la précédente et vu que l'entête est a 11 ce qui

fait que mon format de commentaire est a 11 lors de l'insert

un point de résolu et encore merci