Sub TEST()
Dim Rng1 As Range, Rng2 As Range
Set Rng1 = Intersect(Feuil1.Columns(2), Feuil1.UsedRange)
Set Rng2 = Feuil2.UsedRange: Set Rng2 = Rng2.Columns(Rng2.Columns.Count + 1)
Rng2.FormulaR1C1 = "=TRIM(RC1)"
Rng1.FormulaR1C1 = "=INDEX(Feuil2!R1C2:R" & Rng2.Rows.Count & "C2,MATCH(RC1," _
& Rng2.Address(True, True, xlR1C1, True) & ",0))"
Rng1.Value = Rng1.Value
Rng2.EntireColumn.Delete
End Sub