Filtre Automatique dans macro

Bonjour,

Comment automatiser les sous totaux dans la macro ci-dessous pour les cellules copiées dans la feuille 2. Merci d'avance pour votre aide.

PS : petit message pour claude, j'ai appliqué tes modifications dans les formules, effectivement ça marche merci beaucoup.

Sub Filtre()

Sheets("Feuil1").Select

Dim Lg%

Lg = Range("A65536").End(xlUp).Row

Range("a2:n" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _

Range("w2:w3"), CopyToRange:=Sheets("Feuil2").Range("a1:m1"), Unique:=False

End Sub

Bonjour,

Quelles colonnes tu veux sommer ?

édit: remets ici le fichier modifié

Claude

Je veux sommer les colonnes de Montant HT et TTC

re,

Je te propose les totaux en haut,

vois si çà te va

Claude

Merci Claude !! , c'est exactement ce que je voulais.

Note que j'ai modifié les macros

Encore merci,

je regardais les modifications apportées aux macros.

Je comprends mieux maintenant. Excel et la programmation VB c'est un metier !!!, je m'en sors mieux avec mes logiciels de bâtiments en Sql.