Sub TrouverLaDevise()
Dim T(), RDev As Range, L As Long, CodD As String, NomD As String
T = Feuil5.[C2].Resize(Feuil5.[A60000].End(xlUp).Row - 1).Value
Set RDev = Feuil4.[A2:B2].Resize(Feuil4.[A60000].End(xlUp).Row - 1)
For L = 1 To UBound(T)
If T(L, 1) <> CodD Then CodD = T(L, 1): NomD = _
RDev(WorksheetFunction.Match(CodD, RDev.Columns(1), 0), 2).Value
T(L, 1) = NomD: Next L
Feuil5.[D2].Resize(UBound(T, 1)).Value = T
End Sub