Private Sub CommandButton1_Click()
If Me.ComboBox3.ListIndex = -1 Then Exit Sub
Dim lig&, i%
lig = ComboBox3.ListIndex + 2
If MsgBox("Supprimer la ligne " & lig & " '" & ComboBox3 & "' ?", 4) = 7 Then Exit Sub
Ws.Rows(lig).Delete
ComboBox3.Clear 'ce serait mieux dans UserForm_Initialize...
UserForm_Initialize
For i = 1 To 9
Controls("TextBox" & i) = ""
Next
End Sub