Private Sub CommandButtonSupprimer_Click()
Dim idx As Variant
If CB_SuppJoueur.Value <> "" Then
With Sheets("Joueurs").Range("Tableau1[#Data]")
idx = Application.Match(CB_SuppJoueur.Value, .Columns(2), 0)
If Not IsError(idx) Then .Rows(idx).Delete xlShiftUp
End With
CB_SuppJoueur = ""
Else
MsgBox ("Veuillez sélectionner un joueur dans la liste")
End If
End Sub