Sub suppr_vides()
Application.ScreenUpdating = False
With [Tableau16]
.Columns(.Columns.Count).EntireColumn.Insert 'insère une colonne auxiliaire
.Columns(.Columns.Count - 1) = "=1/SIGN(COUNTA(" & .Cells(1).Resize(, .Columns.Count - 2).Address(0, 0) & "))"
.Columns(.Columns.Count - 1) = .Columns(.Columns.Count - 1).Value 'supprime les formules
.Sort .Columns(.Columns.Count - 1), Header:=xlYes 'tri pour accélérer, place les valeurs d'erreur en bas
On Error Resume Next 'si aucune SpecialCell
Intersect(.Columns(.Columns.Count - 1).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Cells).Delete xlUp...