Lignes MAX, colonnes MAX

Bonjour à tous

Je vois très souvent ce genre de codes

dernièreLigne= range("a65536").end(xlup).row

alors en prévision des nouvelles feuilles de xl 2007, je lance dans workbook.open la procédure suivante :

Option Explicit
Public MaxLine As Long, MaxCol As Long

Sub CalculerMax()
Application.ScreenUpdating = False
DisplayAlerts = False
Sheets(1).Select
Sheets.Add
MaxLine = Range("a1").End(xlDown).Row
MaxCol = Range("a1").End(xlToRight).Column
MsgBox MaxLine & " " & MaxCol
ActiveWindow.SelectedSheets.Delete
DisplayAlerts = True
End Sub

cela me permet d'écrire
dernièreLigne= range("a" & MaxLine).end(xlup).row et de s'affranchir de la version utilisée 🙂

NB : peut cette donnée existe déja (ou existera) dans une collection ou ailleurs (thierry et les autres vébéAïstes, si vous me lisez ...)