Tu es sûr de vouloir faire une macro pour cela ?
Ce n'est absolument pas nécessaire, ce sera complexe et lourd à maintenir, ainsi qu'à exécuter ... Par exemple, elle ne se mettra pas à jour toute seule, sauf à la ré exécuter en permanence, ce qui serait ultra crade.
Par ailleurs, tu es sûr de vouloir faire la somme des cellules suivantes indépendamment de la valeur de la colonne A ? Cela n'aurait pas beaucoup de sens. Il serait possible de faire jusqu'à la prochaine "vide", mais ce sera moche, alors qu'un simple somme.si serait vraiment propre, simple et logique.
Enfin, tu es sûr de vouloir mélanger les totaux (une valeur calculée) au milieu des données saisies à la main ? Note qu'il est toujours possible de mettre une formule que la saisie va supprimer, mais le retour arrière ne sera pas trop possible.
--> Banzai et mbbp, il faut reconnaitre que vous connaissez les trucs supers pointus, mais il y a une fonction pour ca :p
=SOMME.SI( $A$3:$A$28 ; A3 ; $B$3:$B$28 )