Private Sub bouSupprimer_Click()
Dim Ligne As Byte
For i = 0 To lbPrenom.ListCount - 1
If lbPrenom.Selected(i) = True Then
Sheets("Inscriptions").Activate
Range("Cell_Inscriptions").Select
Ligne = Application.WorksheetFunction.Match(lbPrenom.List(i), Range("L_Prenoms"), 0)
Selection.ListObject.ListRows(Ligne).Delete
End If
Next i
Unload Me
End Sub