Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
If Sheets.Count > 1 And ComboBox1.Value <> "" Then Sheets(ComboBox1.Value).Delete
Application.DisplayAlerts = True
UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
For Each X In Sheets
If X.Name <> "Feuil1" Then ComboBox1.AddItem X.Name
Next
End Sub