Trouver la dernière ligne d'une feuille

Function PlageÀPartirDe(ByVal PlageDép As Range) As Range
Dim F As Worksheet, NbL As Long, NbC As Long, V As Variant, N As Long
Set F = PlageDép.Worksheet
With F.UsedRange: NbL = .Row + .Rows.Count - PlageDép.Row
   NbC = .Column + .Columns.Count - PlageDép.Column: End With
    If NbC < 1 Then GoTo CEstToutVide
Do: If NbL < 1 Then GoTo CEstToutVide
   V = PlageDép.Item(NbL, 1).Resize(, NbC).Value
   For N = 1 To NbC: If V(1, N) <> "" Then Exit Do
      Next N
   NbL = NbL - 1: Loop
Do: V = PlageDép.Item(1, NbC).Resize(NbL).Value
   For N = 1 To NbL: If V(N, 1) <> "" Then Exit Do
      Next N: If NbC = 1 Then GoTo CEstToutVide
   NbC = NbC - 1: Loop
Set PlageÀPartirDe = PlageDép.Resize(NbL, NbC)
Exit Function
CEstToutVide: Set PlageÀPartirDe = Nothing
End Function

Sub Test4()
Dim X As Long, LstRow As Long
For i = 1 To 8
    X = Sheets("Feuil2").Cells(Rows.Count, i).End(xlUp).Row
    If X > LstRow Then LstRow = X
Next i
MsgBox LstRow
End Sub

With PlageÀPartirDe(Feuil1.[B2]): LstRow = .Row + .Rows.Count - 1: End With

MsgBox Cells.Find("*", , , , , xlPrevious).Row

MsgBox = Cells.Find("*", Range("IV65536"), xlValues, , 1, 2, 0).Row

MsgBox Cells.Find("*", Range("IV65536"), xlValues, , 1, 2, 0).Row

With Application
    MsgBox Cells.Find("*", Cells(.Rows.Count, .Columns.Count), xlValues, , 1, 2, 0).Row
End With

With Application
    MsgBox Cells.Find("*", Cells(.Rows.Count, .Columns.Count),  xlFormulas, , 1, 2, 0).Row
End With

     i = 1
    Do While (Sheets("Feuil2").Cells(i, 3) <> "")
    i = i + 1
   Loop

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