Supprimer toutes les lignes vide

Bonjour,

Après avoir chercher sur le forum sans succés, je voudrai juste avoir une macro permettant de supprimer toutes les lignes vides afin d'avoir un tableau condensé. Mon nombre de ligne est 1500.

Merci pour votre aide

Bonjour

les lignes vides de la ligne ? à la dernière

Les lignes vides d'une colonne particulière ou de vides de la colonne ? à la colonne ?

Autant d'inconnues à préciser.

un fichier Excel en Exemple avec quelques lignes serait le bienvenu

cordialement

Voici un exemple,

Je voudrai juste que les lignes vides n'existent plus,

bonjour

Code dans un Module

Sub DétruireLigne()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Cordialement

Merci beaucoup !!