Sub Cherche_Remplace()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Sheets(1)
Set sh2 = Sheets(3)
Dim DL As Long, DZ As Long, I As Long
DZ = sh1.Range("E" & Rows.Count).End(xlUp).Offset(1).Row
DL = sh2.Range("B" & Rows.Count).End(xlUp).Offset(1).Row
For I = 3 To DL
sh1.Range("E6:E" & DZ).Select
Selection.Replace What:=sh2.Cells(I, 2).Value, Replacement:=sh2.Cells(I, 3).Value, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
sh1.Cells(1, DL).Select
End Sub