Déplacer une ligne

Bonjour,

J'arrive pas à activer une boucle for avec une condition if à l intérieur.
Le programme qui est à l'intérieur de la condition if ne s'exécute pas

Sub selection ()
Sheet (1).activate
Lastrow = cells(rows.count , 1).end (xlup).row
for i=2 to lastrow step 1
If sheets ("feuil1").cells (i, 1).value = "fil" then
Rows ("i") select
Selection.cut
Range ("Ai").select
Range ("lastrow+1").select
activesheet.paste
Selection. end (xlUp).select
Rows ("i").select
Selection. delete shift:=xlUp

End sub


merci infiniment