Private Sub CommandButton5_Click()
Dim nom As String
Dim msg As Integer
Dim i As Byte
nom = ComboBox1.Value
msg = MsgBox("Vous allez supprimer :" & ComboBox1.Value & "", vbYesNo + vbInformation, "ATTENTION")
If msg = vbYes Then
Feuil2.Rows(ComboBox1.ListIndex + 2).Delete
ComboBox1.RemoveItem (ComboBox1.ListIndex)
ComboBox1.Text = ""
For i = 1 To 24
Controls("TextBox" & i) = ""
Next i
End If
End Sub