Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.ColumnCount = 1
.ColumnWidths = "150"
.List = Sheets("feuil1").Range("liste").Value
End With
End Sub
Private Sub ListBox1_Click()
textbox1.Value = UserForm1.ListBox1
End Sub
Private Sub supprimer_Click()
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub
Private Sub ajouter_Click()
With ListBox1
.AddItem (textbox1.Value)
End With
End Sub