Sub Find()
Dim Dateexam As Date
Dim Trouve As Range
Dim Valeur_Cherchee As String
Set Trouve = Nothing
Valeur_Cherchee = "prélevé"
Set Trouve = Sheets("Feuil1").Range("A1:I14").Find(Valeur_Cherchee, After:=Sheets("Feuil1").Range("I14"), LookAt:=XIPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Dateexam = Left(Right(Trouve, 16), 10)
End Sub