supprimer des lignes [Résolu]

[Mirak87]

Bonjour à tous,

J'essaye de supprimer un certains type de ligne de ma base de données
Pour exemple, si je veux supprimer toute les lignes contenant 1 dans la colonne "Y" je fais cela:

Code :

1
2
3
4
5
6
7
8
9
Sub SupprimeLignes1()
 
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "Y").End(xlUp).Row To step - 1
    If Cells(i, "Y").Value = "1" Then Cells(i, "Y").EntireRow.Delete
    Next i
 
End Sub

Mais ça ne fonctionne pas (ça fait rien)!!
Pourriez-vous me dire SVP ce que je fais d'incorrect?
Merci

[bbil]

il manque quelque chose entre to et step : ...ow To 1 step -...et j'aurais pas mis de guillemets autour du 1 ....Cells(i, "Y").Value = "1"

[Mirak87]

Ok merci c bon ca marche!