Pas de texte dans mon tableau excel

salut, j'ai un petit souci avec visual basic, lorsque j'active ma fonction suivante, toute ma ligne que je doit écrire dans mon tableur s'écrit puis s'efface aussitôt. je ne sais pas comment faire pour garder mon texte écrit.
Private Sub ajouter_Click()
Sheets("info (2)").Select
i = 2
While Not IsEmpty(Cells(i, 1))
i = i + 1
Wend
ajouter = True
Cells(i, 1).Value = ComboBox2.Value
Cells(i, 2).Value = ComboBox3.Value
Cells(i, 3).Value = ComboBox4.Value
Cells(i, 4).Value = TextBox1.Value
'recher d'une unité
Cells(i, 5).Value = ""
'recherche de prix
Cells(i, 6).Value = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox1 = ""
TextBox2 = ""
End Sub