Sous totaux dans macro

Bonjour,

Je souhaiterai dans la macro ci-dessous pouvoir effectuer automatiquement un sous total pour les cellules copiées dans la feuille 2. En faisant une macro automatique, la plage de sélection n'est pas toujours la bonne.

Merci d'avance pour votre aide.

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,

Je vois que tu n'as pas tenu compte, ni répondu à ce poste

https://forum.excel-pratique.com/excel/pb-sur-macro-t19374.html#p110894

C'est pas bien çà !

Claude

Bonjour Claude,

Je n'avais pas vu ta réponse désolé

Merci