Sub NettoyerFeuilles()
Dim Current As Worksheet
On Error Resume Next
For Each Current In ThisWorkbook.Worksheets
With Sheets(Current.Name)
.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
End With
Next
ActiveWorkbook.Save
MsgBox "Nettoyage terminé!", vbInformation, "Reduction Taille Fichier"
End Sub