Autres Modifier couleurs commentaires mais je ne me rappelle plus

Sub InsertCommentaires()
 Dim cmt As Comment, Ligne As Long, TotMois As String, DebMois As String, FinMois As String
    Set cmt = Selection.AddComment
     'ActiveCell.Comment.Visible = True
    With cmt.Shape
      .Width = ActiveCell.Width
      .Height = ActiveCell.Height
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      '.Fill.ForeColor.SchemeColor = 10
      With .TextFrame
       .Characters.Font.Name = "Arial"                    'Police
       .Characters.Font.FontStyle = "Gras italique"       'Style
       .Characters.Font.Size = 10.5                       'Taille police
       .Characters.Font.ColorIndex = 5                    'Couleur commentaires bleu
       .HorizontalAlignment = xlCenter                    'Centrer texte horizontalement
       DebMois = Range("F2").Text
       FinMois = Range("F3").Text
       TotMois = IIf(Month(Range("F2")) = Month(ActiveCell.Offset(, 6)), Range("F4").Text, Range("F6").Text)
       .Characters.Text = "Frais établis ce jour: Période du: " & DebMois & " au " & FinMois & " Montant: " & TotMois
       .Characters(36, Len(DebMois)).Font.ColorIndex = 2                                                                'blanc à partir du 35éme caractère,2 caractères
       .Characters(36 + Len(DebMois) + 4, Len(FinMois)).Font.ColorIndex = 2                                             'blanc à partir du 50éme caractère,2 caractères
       .Characters(36 + Len(DebMois) + Len(FinMois) + 13, Len(TotMois)).Font.ColorIndex = 2                             'blanc à partir du 71éme caractère,3 caractères.
          
      End With
      .Fill.ForeColor.SchemeColor = 10                    'Couleur fond commentaires
      .Line.Weight = 1.5                                  'Epaisseur bordure Commentaires
      .Line.ForeColor.SchemeColor = 12                    'Couleur bordure
       ActiveCell.Comment.Visible = True                  'Afficher/Masquer les commentaires
    End With
    Application.EnableEvents = True
    End Sub