Private Sub CommandButton1_Click()
'pour supprimer de la listbox
ListBox1.RemoveItem (ListBox1.ListIndex)
'pour supprimer de la feuille
Sheets(1).Range("A" & ListBox1.ListIndex + 1).ClearContents
End Sub
Private Sub UserForm_Initialize()
ListBox1.List = Range("A1:A12").Value
End Sub