Option Explicit
Sub Commentaire_insérer()
With ActiveCell
.ClearComments
.AddComment
With .Comment
.Shape.Height = 50
.Shape.Width = 50
.Text Text:="* depends :" & Chr(10) & "- yes with old licences acquired before july 16, 2014" _
& Chr(10) & "- N/A with new licences acquired after july 16, 2014"
.Shape.TextFrame.Characters.Font.Bold = True
.Shape.ScaleWidth 1.39, msoFalse, msoScaleFromTopLeft
.Shape.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
End With
.Select
End With
End Sub