Private Sub CommandButton4_Click()
If TextBox2 = "" Then Exit Sub
With Sheets("CLIENTS").[A1].CurrentRegion
.AutoFilter 4, TextBox2
Select Case .SpecialCells(xlCellTypeVisible).Count / .Columns.Count
Case 1: MsgBox "Le nom n'existe pas...": GoTo 1
Case Is > 2: MsgBox "Il y a des doublons, supprimez la ligne manuellement...": .Parent.Activate: GoTo 2
End Select
.Rows(Application.Match(TextBox2, .Columns(4), 0)).Delete xlUp
MsgBox "'" & TextBox2 & "' a été supprimé..."
1 .AutoFilter
End With
2 Unload Me
End Sub