Bonjour à tous, je voudrais supprimer les lignes vides de mon fichier. Il se trouve que quand j'ai plus d'une ligne vide qui se visent, mon code ne prend en compte qu'une ligne sur deux.
Il faudrait (il me semble) que je démarre par la ligne du bas et que je remonte dans ma sélection.
Mais je ne sais pas comment faire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub supligne()
 
Dim derlign As Long, plage As Range
Dim numligne As Long
derlign = Sheets("Table de travail").Range("A12000").End(xlUp).Row
Set plage = Sheets("Table de travail").Range("A7" & ":A" & derlign)
With Sheets("Table de travail")
For i = 5 To dernligne
numlign = c.Row
If Cells(i, 17) = "" Then
    Rows(i).Delete Shift:=xlShiftDown
 
          End If
          Next i
End With
End Sub
Merci pour votre aide
Cordialement José