XL 2016 copier jusque la dernière cellule remplie

Sub Derniere_ligne()
Dim LstRw As Long, LstCol As Long, LstCel As String
With Sheets("Feuil1")
     LstRw = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 1, 2, 0).Row
     LstCol = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column
     LstCel = .Cells(LstRw, LstCol).Address
End With
MsgBox "Ligne: " & LstRw & vbLf & _
         "Colonne: " & LstCol & vbLf & _
         "Addresse: " & LstCel
End Sub

Sub Selection_Plage()
Dim LstRw As Long, LstCol As Long, LstCel As String
With Sheets("Feuil1")
     LstRw = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 1, 2, 0).Row
     LstCol = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column
     LstCel = .Cells(LstRw, LstCol).Address
    .Range("$A$2:" & LstCel).Select
End With
End Sub