Option Explicit
Private Cel As Range
Public Sub Afficher(ByVal Cible As Range)
Set Cel = Cible(1, 1)
Me.Show
End Sub
Private Sub CommandButton1_Click()
Dim Com As Comment
Set Com = Cel.Comment
If Com Is Nothing Then Set Com = Cel.AddComment
Com.Text Text:=Me.TextBox1.Text
Unload Me
End Sub