XL 2019 Excel VBA - Problème pour trouver la dernière ligne d'un tableau

Sub Macro()
      DL = Feuil1.Cells(2, 1).End(xlDown).Row
      DC = Feuil1.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
      MsgBox DL
End Sub

PL = Range("A2").End(xlDown).Row

Option Explicit

Sub Macro()
  Dim DC%, DL&
  DC = Cells(1, Columns.Count).End(1).Column
  DL = [A2].End(4).Row
  MsgBox "Dernière colonne : " & DC & vbLf & vbLf _
    & "Dernière ligne du 1er tableau : " & DL
End Sub

Sub AutreFaçon()
With [A1].CurrentRegion
PL = .Rows.Count: DC = .Columns.Count
End With
MsgBox "Dernière ligne: " & PL & Chr(13) _
& "Dernière colonne: " & DC, vbInformation, "Visitez ma région"
End Sub