Réponse acceptée !
Salut
Catégorie de la question modifiée en VBA

Je crains qu'il faille passer par une macro qui scanne les 40000 lignes.
Voici l'idée :
Une boucle  For-Next pour passer en revue les lignes
Une boucle  For-Next imbriquée pour passer en revue les quelques colonnes de cette ligne
Si, arrivé àa la dernière colonne, toutes les cellules sont vides, alors :
   Sélection complète de la ligne
   Suppression de la ligne en faisant remonter les suivantes vers le haut
   Recommencer le test des colonnes sur la même ligne (car la ligne courante est maintenant la ligne d'après)

Je n'ai pas en mémoire la syntaxe VBA pour te fournir du code, désolé.
En VB6, cela aurait pu ressembler à ça (VBA ressemblant, sauf adressage des cellules)
   For r = 1 To 40000   ' Lignes
      Do While Not Trouvé
         Trouvé = False
         For t = 1 To 18   ' Colonnes
            If  laCellule(r, t) <> "" Then
               Trouvé = True
               Exit For
            End If
         Next t
         If Not Trouvé
            Selecter laLigne(r)
            Supprimer laLigneActuelle en faisant remonter les suivantes
         End If
      Loop
      DoEvents
   Next r

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Réponse acceptée !
PS : J'y pense en relisant
Pense à bien dimensionner le '40000' dans la boucle car, à la fin du fichier, toutes les lignes sont vides.
Il va donc décaler les lignes à l'infini puisqu'il n'incrémente pas le n° de ligne en cas de suppression.
Peut-être en ajoutant manuellement un mot clé à la dernière ligne, colonne A, genre {Fin de fichier}
Chaine qu'il sera facile de repérer et mettre fin à la boucle (avec Exit For) en cas de rencontre.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)