Insertion d'une ligne somme dans une base de donnée

Bonjour,

Je suis en train de créer un petit outil excel et je rencontre une difficulté.

J'ai une base de donnée avec plusieurs colonnes.
Une des colonnes est triée. En dessous de la base de données, j 'ai déjà créé une macro qui permet de calculer les totaux correspondant aux valeurs de la colonne triée A comme ci dessous.

A B C D

1 10 20 10
1 15 5 12
1 2 2 2
2 4 6 1
2 20 8 8
4 ....
4 ...
4 ....
val1 ....
val1 ....
val2 ....
val2 ....

Total1 27 27 24
Total2 24 14 9
Total3 ...
Total4 ...
Total val1 ...
Total val2 ...


Mon but est d'insérer la valeur du total en dessous de la valeur auquel il correspond dans la colonne triée A. Par exemple insérer Total1 en dessous de tous les 1 dans la colonne triée A.

Voici le code que j'ai déjà commencé . Cela fonctionne pour les deux premiers mais ne peut pas marcher pour les val 1, val2. De plus, si comme dans l'exemple ci-dessus, il n 'y a aucune valeur 3 dans la colonne triée cela ne peut pas marche non plus.


Dim ligne As Integer

ligne = 1

While Sheets(6).Cells(ligne, 11) = 1
ligne = ligne + 1
Wend
Sheets(6).Rows(83 + 4).Copy
Sheets(6).Rows(ligne).Insert shift:=xlDown

ligne = ligne + 1

While Sheets(6).Cells(ligne, 11) = 2
ligne = ligne + 1
Wend
Sheets(6).Rows(83 + 6).Copy
Sheets(6).Rows(ligne).Insert shift:=xlDown

ligne = ligne + 1

While Sheets(6).Cells(ligne, 11) = 3
ligne = ligne + 1
Wend
Sheets(6).Rows(83 + 8).Copy
Sheets(6).Rows(ligne).Insert shift:=xlDown

Merci d'avance pour votre aide. Si jamais je n'ai pas été clair je peux préparer un fichier excel ressemblant au mien pour que ce soit plus explicite.