Private Sub CommandButton1_Click()
If ListBox1.ListIndex > -1 Then ListBox1.RemoveItem ListBox1.ListIndex
End Sub
Dim idx as integer
idx=Listbox1.Listindex
if idx=-1 then exit sub
With Listbox1
TextBox1= .Value 'Valeur de la colonne ayant la propriété .BoundColumn
TextBox2= .List(idx,1)
TextBox3= .List(idx,2)
End with
With Listbox1
.Value= TextBox1.Text
.List(idx,1) = TextBox2.Text
..etc.
End With