Dim cel As Long
Dim plage As Long
Dim i As Long
i = 0
plage = ActiveWorkbook.ActiveSheet.UsedRange.Columns("G").Cells.Count
cel = 1
Do Until cel > plage
If (Cells(cel, 7).Value <> "" Then
i = i + 1
Else
Cells(cel, 7).EntireRow.Delete
cel = i
plage = plage - 1
End If
cel = cel + 1
Loop