Sub Remplace()
Dim i%, j%, f1 As Worksheet, f2 As Worksheet, derlignef1%, derlignef2%
Set f1 = Feuil1
Set f2 = Feuil2
derlignef1 = f1.Cells(Rows.Count, 2).End(xlUp).Row
derlignef2 = f2.Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To derlignef1
For j = 1 To derlignef2
If f2.Cells(j, 2) = f1.Cells(i, 2) Then
f1.Cells(i, 2) = f2.Cells(j, 1)
End If
Next j
Next i
End Sub