RecherchV avec VBA dans plusieurs onglets

Sub recherchemulti()
Dim DernLigne As Long
Dim DernLignebase As Long
'derniere ligne non vide de Resultat
DernLigne = Sheets("Resultat").Range("A" & Rows.Count).End(xlUp).Row
' boucle sur les lignes de Resultat
For n = 2 To DernLigne
' produit à rechercher
produit = Sheets("Resultat").Range("A" & n).Value
' boucle sur tous les onglets du 2eme au dernier
For t = 2 To Sheets.Count
'dernière ligne non vide de l'onglet
DernLignebase = Sheets(t).Range("A" & Rows.Count).End(xlUp).Row
'recherchev sur l'ongley
resultat = Application.VLookup(produit, Sheets(t).Range("A2:B" & DernLignebase), 2, False)
' si la recherchev aboutit placement du resultat trouvé dans Resultat et sortie de boucle
If Not (IsError(resultat)) Then Sheets("Resultat").Range("B" & n) = resultat: Exit For
Next t
Next n
End Sub