C'est sur la feuille liste que la suppression se fait.
Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("liste")
With ListBox1
.ColumnCount = 6
.ColumnWidths = "20;20;20;20;20;20"
.MultiSelect = fmMultiSelectMulti
End With
Me.ListBox1.List = f.Range("A2:F" & f.[A65000].End(xlUp).Row).Value
End Sub
Private Sub CommandButton1_Click()
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Me.ListBox1.Selected(i) Then f.Rows(i + 2).Delete
Next i
UserForm_Initialize
End Sub
Boisgontier