userform

Salut tout le monde !

j'ai une userfom dedans 2 textbox et 2 listbox dans les textbox ceci :

Dim Valeur As String
Valeur = TextBox1.Value
With Sheets("Entrée des données")
If .Range("t4") = "" Then
.Range("t4").Value = Valeur
Else
.Range("t65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
Valeur = TextBox2.Value
With Sheets("Entrée des données")
If .Range("s4") = "" Then
.Range("s4").Value = Valeur
Else
.Range("s65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
TextBox1.Value = ""
TextBox2.Value = ""
UserForm1.Hide
End Sub

ok pas de problème mais dans mes listbox (rowsource) je voudrais bien savoir comment supprimer une donnée que j'aurais choisi moi même ?
j'ai mis listbox car je veux voir les données dans les cellules pour pouvoir supprimer une donnée ?


merci d'avance !!!