Un problème de gestion

Bonsoir à tous

voila mon problème

j'ai un formulaire avec le code suivant

Private Sub btent_Click()

txtstock.Value = Val(txtstock.Value) + Val(txtent.Value)

End Sub

Private Sub btsort_Click()

txtstock = txtstock - txtsort

End Sub

Private Sub comboliste_Change()

txtstock = Application.VLookup(comboliste, Range("data"), 2, 0)

End Sub

Ce que je voudrais c'est que la cellule de data prenne la nouvelle valeur

de txtstock.

genre

Range("data"), 2, 0) = txtstock.Value

merci