Suppression de lignes d'un tableau

bonjour

je vous joins mon fichier en feuille 2 , j'ai un tableau dont je voudrai effacer les lignes via une macro qui observe si sur la

ligne à effacer il se trouve une cellule vide dans cas la ligne comportant celle ci est effacée , mon code fonctionne à peu près sauf pour les cellules de la colonne B ( lorsque je vide une cellule de la colonne B sur n'importe quelle ligne de mon tableau la ligne portant cette cellule ne s'efface pas )

Merci pour toute correction

Bonjour

Le code fonctionne sauf dans le cas ou la cellule effacée se situe sur la dernière ligne

Essayes ce code

Option Explicit

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

  With Sheets("Feuil2")
   For x = .Columns("B:E").Find("*", , , , xlByRows, xlPrevious).Row To 5 Step -1
    'For x = .Range("B" & Rows.Count).End(xlUp).Row To 5 Step -1
     If .Range("B" & x) = "" Or .Range("C" & x) = "" Or .Range("D" & x) = "" Or .Range("E" & x) = "" Then .Rows(x).ClearContents
    Next
  End With
End Sub

Merci banzai 64 pour cette correction !