Supprimer ligne en colonne A mais qu'à partir de .....

[CG2000]

Bonjour à Tous, Bonjour le Forum,

Je souhaite supprimer toutes les lignes contenant X dans la colonne A.
Le code ci-dessous (du forum) fonctionne parfaitement pour X de la première à la dernière ligne,mais je voudrais que ma macro ne tienne pas compte des quatre premières lignes (et donc travailler de la cinquième à la dernière ligne).


Sub delete()
For i = Range("A65536").End(xlUp).Row To 3 Step -1
If Cells(i, 1).Value = "X" Then
Cells(i, 1).EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

Je sais pas comment faire.
Merci par avance de votre aide pour obtenir un tel résultat.

Merci et bonne journée.

CG2000

 

[Efgé]

Re : Supprimer ligne en colonne A mais qu'à partir de .....

Bonjour CG2000,
Remplace

For i = Range("A65536").End(xlUp).Row To 3 Step -1

Par

For i = Range("A65536").End(xlUp).Row To [COLOR=red][B]5[/B][/COLOR] Step -1

Cordialement

 

[CG2000]

Re : Supprimer ligne en colonne A mais qu'à partir de .....

Bonjour Efgé,

Merci pour la réponse et le résultat.
Parfait.

Bonne journée.