Trouver la dernière ligne d'une feuille

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

Function PlageÀPartirDe(ByVal PlageDép As Range, Optional ByVal PlagExam As Range = Nothing) As Range
Dim F As Worksheet, LMax As Long, CMax As Long, NbL As Long, NbC As Long
On Error GoTo RienTrouvé
Set F = PlageDép.Worksheet: If PlagExam Is Nothing Then Set PlagExam = F.UsedRange
LMax = PlagExam.Find("*", F.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
CMax = PlagExam.Find("*", F.Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
On Error GoTo 0
NbL = LMax - PlageDép.Row + 1: If NbL < 1 Then GoTo CEstToutVide
NbC = CMax - PlageDép.Column + 1: If NbC < 1 Then GoTo CEstToutVide
Set PlageÀPartirDe = PlageDép.Resize(NbL, NbC)
Exit Function
RienTrouvé: Resume CEstToutVide
CEstToutVide: Set PlageÀPartirDe = Nothing
End Function

A = Timer
For iA = 1 To Cells(3, 2)
With Application: Dim R As Range
num = ActiveSheet.UsedRange.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row 'Dranreb
End With
Next iA
Cells(9, 4) = Timer - A

MsgBox Feuil1.UsedRange.Find("*", , , , , xlPrevious).Row