Sub MàJ()
Dim i&, HTrad&, Trad(), Cel As Range
With shtParam: Trad = .Range(.Cells(1, 2), .Cells(.Rows.Count, 1).End(xlUp)).Value: End With
HTrad = UBound(Trad)
With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
With Selection
For Each Cel In .Cells
For i = 2 To HTrad
If StrComp(Cel.Value, Trad(i, 1)) = 0 Then Cel.Value = Trad(i, 2): Exit For
Next
Next
End With
With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub