Private Sub Workbook_Open()
Dim c As Range
Set c = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious)
c(2).EntireRow.Resize(Rows.Count - c.Row).Delete
Set c = Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious)
c(1, 2).EntireColumn.Resize(, Columns.Count - c.Column).Delete
With ActiveSheet.UsedRange: End With 'actualise les barres de défilement
Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub