Sub Test()
Dim cel As Range, o As Range
Dim MotAngl As String, MotFran As String
For Each o In Range("A1:A386")
MotAngl = o.Value
MotFran = o.Offset(0, 1).Value
With Workbooks("Classeur1").Worksheets(1).Cells
Set cel = .Find(MotAngl, lookat:=xlWhole)
If Not cel Is Nothing Then
firstAddress = cel.Address
Do
If Len(cel.Value) = Len(MotFran) Then cel.Replace What:=MotAngl, Replacement:=MotFran, MatchCase:=True
Set cel = .FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> firstAddress
End If
End With
Next
End Sub