Comment supprimer une ligne comportant des cellules vides dans certaines colonnes

[DOUMS]

J’ai besoin d’un fichier propre pour envoyer des mails. J’ai exporté le fichier contacts de mon iPhone pour le loger dans un fichier Excel. Problème : C’est du vrac…
Enregistrer une macro pour supprimer les colonnes qui ne m’intéressent pas : j’y arrive.
Par contre, je souhaite supprimer des lignes entières lorsque j’ai des cellules vides dans les colonnes A, B, C et D.
C’est là que j’atteins mes limites !!!
Merci de votre aide
Contacts « nettoyés » 20200406 copie 3.xlsm (124,7 Ko)

[Mimimathy]

Bonjour,

Remplace ta macro par celle-ci

Sub efface_vide()
Dim l As Long, Dl As Long
Dl = Range("A" & Rows.Count).End(xlUp).Row
  For l = Dl To 1 Step -1
    If Cells(l, "A").Value = "" _
      And Cells(l, "B").Value = "" _
      And Cells(l, "C").Value = "" _
      And Cells(l, "D").Value = "" Then
      Cells(l, 1).EntireRow.Delete
    End If
  Next l
End Sub

[DOUMS]

Merci à Mimimathy pour ta réactivité… Et en plus, ça fonctionne !!!