Private Sub CommandButton2_Click()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
L = Sheets('Feuil1').Range('A65536').End(xlUp).Row
Set Plage = Sheets('Feuil1').Range('A1:A' & L)
Nom = ComboBox1.Value
If Nom = '' Then Exit Sub
For Each Cell In Plage
If Cell.Value = Nom Then
Msg = MsgBox('Voulez-Vous Supprimer : ' & Nom, vbYesNo, 'Thierry's Démo')
If Msg = 6 Then
Cell.EntireRow.Delete
Ini
Combo
Else: Exit Sub
Combo
End If
Else
Combo
End If
Next Cell
Combo
End Sub