Suppression de lignes

Bonsoir à tous,

J'essaye de supprimer une ligne selon une valeur enregistrée dans une combobox, cependant toute la macro fonctionne à part la suppression. Ci-dessous le bout de code me permettant de la supprimer qui ne fait rien. Quelqu'un aurait une idée?

Dim l As Integer
With Sheets("EnCours")

For l = Range("A:A").End(xlUp).Row To 2 Step -1
If Cells(l, 1).Value = "combobox2" Then
Rows(l).Delete
End If
Next
End With