Sub SupprimerLignesVides()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
.Columns(1).EntireColumn.Insert 'colonne auxiliaire
.Columns(0) = "=1/(RC[1]<>"""")"
.Columns(0) = .Columns(0).Value
.Columns(0).Resize(, .Columns.Count + 1).Sort .Columns(0) 'tri pour accélérer
On Error Resume Next
.Columns(0).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
.Columns(0).EntireColumn.Delete
End With
With ActiveSheet.UsedRange: End With 'actualise les barres de défilement
End Sub