XL 2013 Mettre a jour une feuille, en fonction d'une autre

Sub UpdateStock()
With Sheets("Inventaire")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    If fin = 3 Then Exit Sub
    tabinventaire = .Range("A4:FA" & fin).Value
End With

With Sheets("Stock")
    For i = LBound(tabinventaire, 1) To UBound(tabinventaire, 1)
        Set trouvé = .Columns("A:A").Find(tabinventaire(i, 1), lookat:=xlWhole)
        If Not trouvé Is Nothing Then
            StockInit = .Range("D" & trouvé.Row)
            .Range("D" & trouvé.Row) = tabinventaire(i, 5)
            .Range("D" & trouvé.Row).Interior.ColorIndex = IIf(StockInit = .Range("D" & trouvé.Row), xlNone, 4)
        End If
    Next i
End With
End Sub