Chercher la derniere cellule dune colonne comprenant mot précis et la copier

Sub essai()
Dim xrg As Range

Set xrg = Nothing
Set xrg = Sheets("Feuil1").Range("b:b").Find("inventaire", _
        after:=Sheets("Feuil1").Range("B1"), searchdirection:=xlPrevious, _
        LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
If Not xrg Is Nothing Then Sheets("Feuil2").[b5] = xrg.Value Else Sheets("Feuil2").[b5] = CVErr(xlErrNA)
End Sub

=INDEX(Feuil1!$B:$B;GRANDE.VALEUR((SIERREUR(CHERCHE("inventaire";DECALER(Feuil1!$B$1;0;0;EQUIV("zzzz";Feuil1!B:B;1);1));0)*LIGNE(DECALER(Feuil1!$B$1;0;0;EQUIV("zzzz";Feuil1!B:B;1);1)));1))