Faire un total sans sous-totaux

Je te remercie pour ta reponse ccm81.

C'est que ma macro ne contient pas de fonction sous total, en fait il s'agit simplement d'une ligne qui vient s'ajouter si plusieurs éléments identiques se suivent.

C'est pourquoi j'ai utilisé la fonction sumif, pour qu'il utilise en critère le texte.

Est ce que la macro entière t'aiderai à mieux me comprendre ?

Merci encore

Je me sens pas trop de couper ma macro, je te l'envoie. Il s'agit de la feuille estimatif et la macro estimatif, tu ne peux pas te tromper !
J'ai mis un petit code couleur pour te signaler les éléments en question.
Cette feuille importe les éléments à partir d'autres feuilles que je t'ai mises si tu veux la lancer

http://www.cjoint.com/c/GDEsFHPX6du

Par ailleurs dans la macro, il doit bien y avoir quelques petites choses qui ne vont pas, je suis novice dans ce domaine, j'apprends encore
.

J'ai deja essayé cela, mais il n'en veut pas.
Dans ce cas, il me met une erreur.

Je l'ai appliqué;
Sur ma macro, ca affiche VRAI, et pas la valeur.
C'est dû à un réglage ?

Alors cela m'affiche toujours VRAi..
Si je mets deux guillements : ""<>"", il me demande NOM?

ThisWorkbook.Sheets("basequantitatif").Activate
        Range("base_totbac").Select
        Selection.Copy
        ThisWorkbook.Sheets("Estimatif BAC").Activate
        ActiveSheet.Paste
        ActiveCell.Offset(0, 0).Select
        Dim tst As String
        tst = "=WorksheetFunction.SumIf(Range(B6:B800), " <> " & ""sous total"", Range(I6:I800)) * 2.5"
        ActiveCell.Offset(0, 8).Formula = tst

Je dois t'avouer que je ne comprends pas vraiment ce que signifie ce VRAI, je pensai qu'avec .Formula, il affichait la valeur.

Merci Encore pour ton aide et ton temps !

Bonjour ccm81,
Ta dernière solution me donne un résultat 0.00, jusque là j'utilisai .Formula dans mes lignes de code, et c'est la premiere fois que ça refuse de calculer.

Salut ccm81,
Je pense que l'erreur vient du fait qu'il cherche la valeur de la cellule ù doit s'afficher le total, aussi que penses tu de :

ActiveCell.Offset(0, 8).Formula = "= Sum(I7:ActiveCell.Row - 1) - SumIf(B7:ActiveCell.Row-1,""sous total"",I7:ActiveCell.Row-1)"

ou de

ActiveCell.Offset(0, 8).FormulaR1C1 = "=Sum(R" & 7 & "C:R" & ActiveCell.Row - 1 & "C) - SumIf(C[-6]:R" & 7 & "C,""sous total"",R" & 7 & "C:R" & ActiveCell.Row - 1 & "C)"

Le souci est que ça rest 0.00, je ne sais pas d'où vient le problème. Lorsque je sépare les formules, elles se calculent très bien. Mais impossible jusque là de les assembler

En te remerciant pour ton retour,