XL 2019 Dernière position d'un élément dans une colonne

Sub TrouverDerniereLigne()

    Dim Plage As Range
    Dim DerniereLigne As Long
    Dim Valeur As Variant

    ' Valeur à chercher
    Valeur = ThisWorkbook.Sheets("Feuil1").Range("C1").Value

    ' Plage de recherche (colonne A)
    Set Plage = ThisWorkbook.Sheets("Feuil1").Range("A:A")

    ' Trouver la dernière ligne avec la valeur spécifiée
    DerniereLigne = 0
    On Error Resume Next
    DerniereLigne = Plage.Find(What:=Valeur, After:=Plage.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
    On Error GoTo 0

    ' Écrire en C2
    ThisWorkbook.Sheets("Feuil1").Range("C2").Value = DerniereLigne

End Sub