Bouton supprimer vba excel

Bonjour,

jai un blm avec mon bouton supprimer la formule fonctionne mais si je sélectionne la dernière ligne du tableau pour le supprimer elle me supprime que les 3 premier ligne du tableau .
mrc de mède car je m'arrache les cheveux en se moment

voici ma formule

Private Sub CommandButton5_Click()
Dim J As Long
If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
Rows([A6:A1048576].Find(ComboBox1.Value).Row).EntireRow.Delete
ComboBox1.Clear
Set Ws = Sheets("feuil12") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
End If

Unload Me
UserForm7.Show
End Sub