Sub ménage()
'Procédure pour réduire le poids d'un fichier (nombre d'octets)
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Range(Cells.SpecialCells(xlCellTypeLastCell).EntireRow, Cells.Find("*", , , , xlByRows, xlPrevious).EntireRow) _
.Offset(1, 0).Delete
Range(Cells.SpecialCells(xlCellTypeLastCell).EntireColumn, Cells.Find("*", , , , xlByColumns, xlPrevious) _
.EntireColumn).Offset(0, 1).Delete
Next ws
ActiveWorkbook.Save
Application.ScreenUpdating = True
MsgBox "Procédure terminée!", vbInformation
End Sub