XL 2016 Trouver la dimension d'un tableau

Sub La_Der()
Dim Derlig&, Dercol%
Derlig = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
Dercol = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column

[Z1] = Derlig & "eme ligne"
[Z2] = Dercol & "eme colonne"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    [z1] = "Dernière ligne " & [a1:k16].Find("*", , , , xlByRows, xlPrevious).Row
    [z2] = "Dernière colonne " & [a1:k16].Find("*", , , , xlByColumns, xlPrevious).Column
    If Err <> 0 Then [z1:z2] = "Pas de saisie en a1:k16"
    Application.EnableEvents = True
End Sub

Sub test()
Dim x
x = Split(Split(Cells(1).CurrentRegion.Address(4), ":")(1), "$")
col = x(1)
lig = x(2)
MsgBox "Der lig=" & vbTab & lig & vbCr & "Der col=" & vbTab & col
End Sub