Sub Nettoyage()
Dim w As Worksheet, derlig&, dercol%
For Each w In Worksheets
derlig = w.Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
dercol = w.Cells.Find("*", , , , xlByColumns, xlPrevious).Column
w.Range(w.Rows(derlig + 1), w.Rows(w.Rows.Count)).Delete
w.Range(w.Columns(dercol + 1), w.Columns(w.Columns.Count)).Delete
Next
ThisWorkbook.Save 'enregistrement
End Sub