Sub MiseÀJour()
Dim TR(1 To 10000, 1 To 3), Code As SsGr, Produit As SsGr, L As Long
For Each Code In Gigogne(TableUnique(Feuil1.[A2], _
Workbooks("fichier_a_importer.xlsx").Worksheets(1).[A2]), 1, 2)
For Each Produit In Code.Co
L = L + 1
TR(L, 1) = Code.Id
TR(L, 2) = Produit.Id
TR(L, 3) = Produit.Co(Produit.Count)(3)
Next Produit, Code
Feuil1.[A2].Resize(L, 3).Value = TR
End Sub