Sub Suppression_lignes()
Dim ws As Worksheet
Dim pl As Range
For Each ws In Worksheets
With ws
Set pl = Application.Intersect(.UsedRange, ws.Columns(1))
On Error Resume Next
pl.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
If Err <> 0 then Err = 0
End With
Next ws
End Sub