Sub CreaCommentaire()
On Error Resume Next
ActiveCell.Comment.Delete
With ActiveCell.AddComment
.Shape.Placement = xlFreeFloating
.Shape.TextFrame.AutoSize = True
.Text Text:="Exemple" & vbCrLf & "CECI EST MON TEXTE"
For Each c In ActiveSheet.Comments
c.Shape.Width = 1188
c.Shape.Height = 130
c.Visible = True
c.Shape.AutoShapeType = msoShapeRoundedRectangle
c.Shape.Fill.ForeColor.RGB = RGB(248, 202, 110)
Next c
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Name = "Tahoma"
i.Shape.OLEFormat.Object.Font.Size = 45
i.Shape.TextFrame.Characters(Start:=28, Length:=40).Font.Size = 45
Selection.Comment.Shape.Select
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Next i
End With
End Sub