Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, "H").Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub
Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, [COLOR=Red][B]8[/B][/COLOR]).Value = "" Then Cells(l, [B][COLOR=Red]8[/COLOR][/B]).EntireRow.Delete
Next l
End Sub