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

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