Simplification d'ecriture

bonsoir

je me demandais s'il n'etait pas possible de réduire le code suivant destiné à supprimer une ligne entière si une cellule de celle ci est vide

Sub Suppression_de_ligne()
Dim x As Integer

For x = Sheets("Feuil1").Range("A65536").End(xlUp).Row To 2 Step -1

If Sheets("Feuil1").Range("A" & x) = "" Or  Sheets("Feuil1").Range("C" & x) = ""   Or  Sheets("Feuil1").Range("E" & x) = ""  Then Rows(x).Delete

Next
 End Sub

il y a t il un moyen plus simple d'ecrire la ligne if sheets("feuil1").... ect plutot que d'utiliser systematiquement "or" pour designer chaque colonne A , C et E ?

merci pour vos réponses

Bonsoir

A tester

Sub Suppression_de_ligne()
Dim x As Long               ' Variable de ligne préférable en Long

  With Sheets("Feuil1")
    For x = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1       ' Rows.Count valable pour 2003 et +
      If .Range("A" & x) = "" Or .Range("C" & x) = "" Or .Range("E" & x) = "" Then .Rows(x).Delete
    Next
  End With
End Sub

Merci pour cette réponse rapide Banzai !