Supprimer ligne si cellule vide

Bonjour,

Je voudrais faire une macro qui supprime les lignes si la ligne ne contient que des cellules vides.(ci joint le fichier)

J'ai fais plusieurs recherches sur le forum qui traite du même problème que moi mais je n'ai pas trouvé de solution adéquate.

Merci d'avance

Bonjour,

Une proposition :

Public Sub suppr_vides()
    Dim derLigne%, i%
    derLigne = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    For i = derLigne To 1 Step -1
        If Cells(i, 1) = "" Then
            Rows(i).Delete
        End If
    Next i
End Sub

Bonjour

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

Bonjour le fil,

Je suis à la traine...mais je poste quand même,

Sub Supprime_ligne_vide()

    Dim NombreVal As Integer, Lig As Integer, dl As Integer

      dl = Range("A" & Rows.Count).End(xlUp).Row

    With Sheets("liste")
      For Lig = dl To 1 Step -1
        NombreVal = .Application.WorksheetFunction.CountA(Sheets("liste").Rows(Lig))
        If NombreVal = 0 Then
            .Rows(Lig).EntireRow.Delete
        End If
      Next Lig
    End With
End Sub

CTRL + e pour exécuter la macro

@oyobrans: attention, on supprime la ligne si elle est entièrement vide.

EDIT: simplification du code....en prenant exemple sur Amadéus,

Sub Supprime_ligne_vide()

    Dim Lig As Integer, dl As Integer

      dl = Range("A" & Rows.Count).End(xlUp).Row

    With Sheets("liste")
      For Lig = dl To 1 Step -1
        If .Application.WorksheetFunction.CountA(Sheets("liste").Rows(Lig)) = 0 Then .Rows(Lig).EntireRow.Delete
      Next Lig
    End With
End Sub

Cordialement,

Re,

Tous les fichiers sont bons plus qu'à choisir lequel prendre

Merci a vous 3