Macro qui supprime les lignes vides

Bonjour à tous,

Comment supprimer par une macro commande les lignes vides d'un fichier importé ?

Merci d'avance

Bonsoir,

essaie ceci :

Sub supprimeligne()
Dim dlg As Long, i As Long
dlg = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For i = dlg To 1 Step -1
   If Application.WorksheetFunction.CountA(Rows(i)) = 0 _
         Then Rows(i).Delete
Next
End Sub

Amicalement

Dan