Bonjour,

je souhaite supprimer les lignes dont la 1ère colonne est vide dans un tableau Excel (feuille "Import"). J'ai écrit le code suivant mais je n'ai la suppression que d'une ligne sur deux lorsqu'il y a deux ou plus de lignes vides contigües. Quelqu'un peut-il me dire où est le problème? Merci.

Moa 83

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub essai_supression()
Dim ligin As Long, ligai As Long
ligai = 40
For ligin = 1 To ligai
    If Worksheets("Import").Cells(ligin, 1).Value = "" Then
    Rows(ligin).Delete
    End If
Next
End Sub