Sub remplacer()
Dim dico, derlig&, t, i&, j&, deb
deb = Timer
Set dico = CreateObject("scripting.dictionary")
dico.CompareMode = TextCompare
With Sheets("Feuil2")
If .FilterMode Then .ShowAllData
derlig = .Cells(.Rows.Count, "b").End(xlUp).Row
t = .Range("b1").Resize(derlig, 2)
For i = 1 To UBound(t)
If t(i, 1) <> "" Then dico.Add t(i, 1), t(i, 2)
Next i
End With
With Sheets("Feuil1")
If .FilterMode Then .ShowAllData
derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
t = .Range("a10:a" & derlig).Resize(, 26)
For i = 1 To UBound(t): For j = 1 To 26
If t(i, j) <> "" Then If dico.Exists(t(i, j)) Then t(i, j) = dico(t(i, j))
Next j, i
.Range("a10").Resize(UBound(t), UBound(t, 2)) = t
End With
MsgBox "remplacement en " & Format(Timer - deb, "0.0\ sec.")
End Sub