Sub ttttt()
Dim cmt As Comment
Dim t As String
Set cmt = Sheets("Feuil1").Range("A1").Comment
t = Application.Proper(cmt.Text)
With cmt.Shape.TextFrame
.HorizontalAlignment = xlHAlignCenter
.Characters.Text = t
End With
End Sub
utiliser la fenêtre des variables locales et ou la fenêtre Espion pour examiner les propriétés des objets.