Faire la Somme des monatnt selon les années

Bonjour,

j'ai un petit problème dans mon code VBA.. j'ai une feuille qui contient des informations ( Année, Montant, Catégorie...) et je veux faire la somme des montants selon l'année et la Catégorie.. le problème que j'ai rencontré c'est comment faire la somme selon les années?!!

Lorsque je prends les données de la feuille des données il colle l'année et juste après, s'il se trouve, la même année avec un autre montant.. ça n'est pas une erreur c'est juste que j'aurais besoin des sommes selon les années et pas des données enregistrés séparément.. Ex 2014 avec montant X et juste après 2014 avec l'autre montant Y.

je mets à votre disposition mon Code Vba pour plus de détail:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Do While Cells(i, 1) <> ""

Workbooks("CLL.xls").Sheets("Données").Activate

Année = Cells(i, 3)

Montant = Cells(i, 13)

If Cells(i, 5) = "Cat1" Then

j = 60

Workbooks("CLL.xls").Sheets("Cat1").Activate

While Cells(j, 3) <> "" And Cells(j, 3) <> Cells(i, 3)

j = j + 1

Wend

Cells(j, 4) = Cells(j, 4) + Montant

Cells(j, 3) = Année

Else

If Cells(i, 5) = "Cat2" Then <======== là je passe à l'autre feuille/Autre Catégorie

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

J'attends vos remarques.

Merci d'avance.

Bonjour,

Il serait judicieux de joindre un fichier

Merci Jean!

enfaite, je veins de trouver la Solution.. y avait une erreure, Fallait mettre Année à la place de cells (i,3) et ça marche :p

Bonne journée