Macro supprimer lignes vides + Condition + longueur de la plage

Bonjour à tous,

J'ai regardé sur le forum et il y a beaucoup de sujets qui traitent de la suppression des lignes, mais je n'ai pas trouvé une macro qui correspond spécifiquement à mon utilisation.

Je voudrais une macro pour gérer un fichier qui a toujours 4 colonnes (A, B, C et D) mais dont le nombre de lignes peut varier.

La macro doit pouvoir identifier la table (Ici $A$1:$D$36) dont le nombre de lignes peut augmenter ou diminuer.

Le but de cette macro est de supprimer les lignes blanches (cad où 4 cellules sur la même ligne sont vides) de cette table (ici les lignes 12 et 24).

Je peux faire cette macro avec l'enregistreur, mais elle n'est plus valable lorsque le nombre de lignes de la table augmente.

Si vous avez une solution, je suis preneur.

D'avance merci et bonne journée.

Bien cordialement,

Sinokisme

Bonjour sinokisme, le forum,

A tester...

Sub SupprimeLigneVide()
 Dim i As Long, dl As Long
  With Sheets("Feuil1")    ' à adapter
   dl = .UsedRange.Rows.Count
    For i = dl To 2 Step -1
     If Application.CountA(Range("A" & i & ":D" & i)) = 0 Then Rows(i).EntireRow.Delete
    Next i
  End With
End Sub

Cordialement,

Ça fonctionne parfaitement ! Merci Xorsankukai