Supprimer toutes lignes "vides"

Bonsoir,

J'ai un fichier qui est une extraction d'un ERP.

1 ligne sur 2 ne comporte aucune donnée

Comment supprimer facilement toutes les lignes vides ?

Merci d'avance

Aëlig

Bonjour

Une solution simple :

*Tu sélectionnes l'ensemble de ton tableau,

*Tu mets un filtre : "Accueil', - ''Edition" - "Trier et filtre"r - "Filtrer"

* Tu choisis une colonne et tu exécutes un tri

Autre solution : une macro.

Mais sans fichier, c'est difficile ...

Bye !

Bonsoir

Sub lignevide()

Count = 0

For i = 1 To 1000
    Count = 0
    For j = 1 To 10
    If Cells(i, j) = "" Then
    Count = Count + 1
    End If
    Next j

If Count = 10 Then
Cells(i, 1).EntireRow.Delete
Count = 0
End If

Next i
End Sub

Test sur 1000 lignes et 10 colonnes, à adapter

Cdt

Circus