(RESOLU)supprimer selon combobox

Private Sub CommandButton1_Click()
Rows(ComboBox1.ListIndex + 4).Delete
ComboBox1.Clear
UserForm_Initialize
ComboBox1 = ""
End Sub

Private Sub UserForm_Initialize()
For n = 4 To Range("L65536").End(xlUp).Row
ComboBox1.AddItem Range("L" & n)
Next n
End Sub

Private Sub CommandButton1_Click()
x = ComboBox1.ListIndex + 4
If MsgBox("voulez vous supprimer la note " & Cells(x, 12) & vbCr & _
"cliquez sur OUI pour Supprimer" & vbCr & _
"cliquez sur NON pour Annuler", vbYesNo, _
"Demande de confirmation") = vbYes Then
Rows(x).Delete
End If
ComboBox1.Clear
UserForm_Initialize
ComboBox1 = ""
End Sub