Bonsoir Juliette,
La procédure suivante devrait répondre à ta demande :
Sub ModifCodes()
Dim TabCode As Variant
Dim TabNvCode As Variant
Dim L As Long
Dim L2 As Long
'Charge les Codes de la feuille 2 dans un tableau variant temporaire TabNvCode()
With Sheets(2)
L = .Range("A65536").End(xlUp).Row
TabNvCode = .Range(.Cells(1, 1), .Cells(L, 2)).Value
End With
'Charge les Codes feuille 1 dans un tableau variant temporaire TabCode()
With Sheets(1)
L = .Range("A65536").End(xlUp).Row
TabCode = .Range(.Cells(1, 1), .Cells(L, 1)).Value
'Compare les tableaux
For L = 1 To UBound(TabNvCode, 1)
For L2 = 1 To UBound(TabCode, 1)
If TabNvCode(L, 1) = TabCode(L2, 1) Then
TabCode(L2, 1) = TabNvCode(L, 2)
End If
Next L2
Next L
'Réaffecte les nouveaux codes en feuille 1
.Range(.Cells(1, 1), .Cells(UBound(TabCode, 1), 1)).Value = TabCode
End With
End Sub
Cordialement,
Didier_mDF