Sub test() Dim Lig As Long, vSearch As String
' Mémoriser la valeur à chercher
vSearch = Sheets("Feuil1").Range("A1").Value
' en cas d'erreur pour trouver la valeur, on arrête la procédure
On Error GoTo FinProc
' Utiliser la fonction EQUIV() pour trouver la ligne
Lig = WorksheetFunction.Match(vSearch, Sheets("Feuil2").Range("A:A"), 0)
' Inscrire dans la cellule B de la ligne la valeur B1 de la feuille 1
Sheets("Feuil2").Range("B" & Lig).Value = Sheets("Feuil1").Range("B1").Value
FinProc:
' Termine ici la procédure si rien trouvé
End Sub