Macro de suppression qui ne boucle pas

Bonjour,

Je dois supprimer toutes les lignes vides d'un fichier.

Malheureusement, certaine lignes sont fusionnées .... donc tri impossible.

J'ai donc une macro devrait boucler et supprimer les lignes commençant par une cellule vide.

Ca marche mais elle s’arrête après la première suppression.

Elle ne boucle pas jusqu'à la fin.

Merci pour votre aide

Charly

Sub Supprimer_lignes_inutiles()
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
Rows(Selection.Row).Delete shift:=xlUp
End Sub

Bonjour

Essaye :

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

Nad

Super, Merci Nad !