Calcul à partir des données d'un autre onglet

Bonjour,

Voilà mon problème :

J'ai un fichier excel sur lequel j'ai 2 onglet : une fiche produit et une un onglet ou il y a les consommations de ces produits (pas triés par produits).

J'aimerai que dans la fiche produit, en face de chaque produit, il y ai le total consommé.

J'ai pensé faire une macro vba mais mes compétences dans ce domaine sont très limités j'ai écrit un mix vba algo, si c'est la seule solution pouvez vous le traduire en vba pur ?

sub

dim cpt as integer
dim total as long

Pour cpt de 1 à nombreligneongletconsommation Faire

SI ongletconsommation.colonne1.cellule(cpt) = ongletproduit.cellule(A1) Alors
total=total + ongletconsommation.colonne3.cellule(cpt)
FinSi

cpt = cpt+1

Next

Finpour

J'espère que vous comprenez.
Merci d'avance.

Cordialement

Xavier