Sub Epurer()
Dim w As Worksheet, i&
For Each w In Worksheets
If w.[A1].Formula = "" Then w.[A1] = " "
i = w.Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
w.Rows(i + 1).Resize(w.Rows.Count - i).Delete
i = w.Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
w.Columns(i + 1).Resize(, w.Columns.Count - i).Delete
With w.UsedRange: End With 'actualise les barres de défilement
Next
End Sub