Valeur cellule non reconnue

Bonjour a tous,

voici le problème pour lequel je sollicite votre aide.

Je réalise actuellement un formulaire permettant d'ajouter, de modifier et de supprimer des données.
j 'ai réussi a faire en sorte que l'ensemble des données soit ajouter et ou modifier en fonction de boutons correspondant cependant, pour la suppression j 'ai quelque problème.
l'idée et de supprimer l'ensemble de la ligne si la valeur de la cellule est égale à la combobox1.
voici mon code utilisé :

Private Sub CommandButton5_Click()

 Dim i As Long
 
    If MsgBox("Confirmez-vous la supression ? " & ComboBox1, vbYesNo, "Demande de confirmation de suppression") = vbYes Then
        For i = 65536 To 2 Step -1
            If Cells(i, 1).Value = ComboBox1 Then Worksheets("Transports").Rows(i).Delete
        Next i
    End If

End Sub

cependant, je viens de me rendre compte que la suppression ne fonction que si j’ajoute des données via l'utilisation de mon petit programme que j 'ai réalisé. Si je rentre les données directement à la mains dans la feuille excel, la fonction si dessus ne fonctionne pas. J 'ai bien le message qui s'affiche mais la ligne n 'est pas supprimée.

est ce que quelqu'un pourrait m'aider ?

Nota: j 'en profite pour vous demander s'il est possible de rafraichir une liste déroulant sans devoir relancer la macro ?

Merci