XL 2019 Trouver une valeur et modifier le contenu de la cellule correspondante

[mobenjilali]

bonjour,
après plusieurs recherche sur le site je ne trouve pas mon bonheur, donc j'ai décidé de créer cette discussion.
ds le fichier ci-joint je veux qu'une fois les données de la colonne A Feuil2 sont trouvé ds la Feuil1, modifier la cellule de la colonne B Feuil1 par le contenu de la cellule de la colonne C Feuil2.
cdt

 

[vgendron]

Bonjour

essaie ce code à placer dans un module standard

Sub remplace()
Dim TabInit() As Variant
Dim TabReplace() As Variant

With Sheets("Feuil2")
    TabReplace = .UsedRange.Value
End With
With Sheets("Feuil1")
    TabInit = .UsedRange.Value
End With
For i = LBound(TabInit, 1) To UBound(TabInit, 1)
    For j = LBound(TabReplace, 1) To UBound(TabReplace, 1)
        If TabInit(i, 1) = TabReplace(j, 1) Then
            TabInit(i, 2) = TabReplace(j, 3)
        End If
    Next j
Next i
With Sheets("Feuil1")
    .Range("A1").Resize(UBound(TabInit, 1), UBound(TabInit, 2)) = TabInit
End With

End Sub

 

[mobenjilali]

bonjour
un grand merci le problème est résolue
cdt