aide sur une fonction

Bonjour

Je souhaite revoir un code VBA que j'ai et le réadapter :

Application.ScreenUpdating = False
x = [A65536].End(3).Row
[C2] = '=and(A2<>''N'')'
Range('A1:A' & x).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[C1:C2]
Range('A2:A' & x).SpecialCells(xlCellTypeVisible).EntireRow.Delet e
ActiveSheet.ShowAllData

- Normalement ce code permet de supprimer toutes les lignes de la colonne A, à partir de la cellule A2. Le code fait le test dans la cellule C2.

Dans mon cas, je veux que ce code supprime toutes les lignes de la colonne E à partir de E4. Le teste pouvant se faire en D4. Mais ç bug !!! C'est probablement à cause des Range('A1:A' & x) et Range('A2:A' & x) que je n'arrive pas à adapter.

Si vous connaissez ce code, merci d'avance!