Sub remplacer()
Dim ta, tb, r As Range, i As Byte
Set r = Feuil1.Columns(1).SpecialCells(xlCellTypeConstants, 2)
ta = Sheets("Words").Range("B4:B20").Value: tb = Sheets("Words").Range("C4:C20").Value
For i = LBound(ta) To UBound(ta)
r.Replace What:=ta(i, 1), Replacement:=tb(i, 1)
Next i
End Sub