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