Sub Su_Vides()
Dim w As Worksheet
On Error Resume Next 'si aucune SpecialCell
For Each w In Worksheets
With w.Range("A1").CurrentRegion
.Columns(1).Replace "", "#N/A", xlWhole
.Sort .Columns(1), xlAscending 'tri pour accélérer
.Columns(1).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End With
Next
End Sub