Hello,
Le commentaire devra écrire quoi et dans la cellule impactée par le textbox ?
Sinon pour créer un commentaire, c'est par exemple:
ActiveCell.AddComment
With ActiveCell.Comment
.Visible = True
.Shape.Shadow.Visible = msoFalse
.Text Text:="DD: " & Now & Chr(10)
.Shape.TextFrame.Characters.Font.Name = "Tahoma"
.Shape.TextFrame.Characters.Font.Size = 10
.Shape.TextFrame.Characters.Font.Color = 0 'caractères
.Shape.Line.ForeColor.RGB = RGB(255, 0, 0) 'Rouge
.Shape.Line.Weight = 0.25
.Shape.Fill.Visible = msoTrue
.Shape.Fill.ForeColor.RGB = RGB(255, 255, 204) 'Jaune Clair
.Shape.TextFrame.Characters(1, 23).Font.Color = RGB(0, 0, 255) 'Bleu
.Shape.TextFrame.Characters(1, 23).Font.Size = 7
.Shape.TextFrame.Characters(1, 23).Font.Italic = True
End With