Programme VBA pour réaliser un filtre

Bonsoir les amis!!
Je sollicite votre indulgence pour m'assister à surmonter une difficulté auquelle je suis confronté pour la réalisation d'un programme VBA me permettant d'effectuer une opération de filtre.

Je vous envoie le classeur de données que j'utilise.
Dans ce classeur, je veux réaliser un filtre sur la colonne E de sorte à afficher que les éléments dont la valeur prise par la colonne E est 1.

Voici ce que j'ai fais

Sub Filtrer ()
     Workbooks("ANN_LEG.xlsx").Worksheets("données").Range("A1").AutoFilter _
    field:=5, _
    Criteria1:="1", _
    VisibleDropDown:=False
End Sub

Cette commande fonctionne comme je l'ai écrite. Mais, étant données qu'il y a des lignes en gras (représentant des totaux) dans la colonne G, je veux que ces lignes apparaissent quelque soit le critère de filtre choisi. En plus, pour chaque totale, les valeurs prises par la colonne ANNEE 2006 doivent changer à causes formules.
Par exemple, si le critère de filtre est 1, la valeur ANNEE 2006 de la ligne TOTAL ne doit plus être 31279
Celle de la ligne Agriculture doit être différente de 5058

Comment faire ? Aide moi s'il te plait. Je compte vraiment sur toi,

Le document est disponible sur le site suivant:
http://www.cjoint.com/?DAFrfkr8jKO
le classeur a pour nom: ann_leg_.xlsx
Merci d'avance