incrémenter des commentaires par userform

Private Sub CommandButton1_Click()
Dim dest As Range

With Sheets("Feuil3")
    Set dest = IIf(.Range("A1").Value = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
dest.Value = Me.TextBox1.Text
Unload Me
MsgBox "Merci de votre contribution"
ThisWorkbook.Save
End Sub

Private Sub CommandButton1_Click()
Dim dest As Range
With Sheets("Feuil3")
    Set dest = IIf(.Range("A1").Value = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
dest.Value = Me.TextBox1.Text
dest.Offset(0, 1).Value = Date
Unload Me
MsgBox "Merci de votre contribution"
ThisWorkbook.Save
End Sub