Bonjour,

J'ai écrit une macro pour supprimer des lignes dont la cellule (i,1) est vide. Seulement quand il y a deux cellules vides successives il ne supprime qu'une seule ligne et il faut executer encore le programme pour que la deuxième ligne s'éfface. Comment faire pour effacer en une fois.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public Sub Supprimer_ligne()
    Dim i As Integer
 
    Set r = Range("A1:A13")
    For i = 1 To 14
        If Cells(i, 1).Value = "" Then
        r.Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub
Merci!