Private Sub B_supp_Click()
Dim Plage As Range
For ind = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(ind) = True Then
If Plage Is Nothing Then
Set Plage = Feuil2.Rows(CInt(ListBox1.List(ind, 4))).EntireRow
Else
Set Plage = Application.Union(Plage, Feuil2.Rows(CInt(ListBox1.List(ind, 4))).EntireRow)
End If
End If
Next
For i = 1 To Plage.Rows.Count
Plage.Rows(i).EntireRow.Delete
Next
End Sub