Re-,
Dans le code, je me sers des cellules M1 à N2 pour y mettre les critères qui servent pour le filtre élaboré.
Note que je les efface par la suite
Pour les 6, 7 et 8, comme je détermine la dernière cellule en colonne B, et que je fais le total des colonnes H, I et J, j'inscris donc le total dans la dernière cellule, avec un offset de 6 colonnes pour la colonne H, etc....
Pour masquer les onglets une fois le filtre effectué, tu peux rajouter cette commande :
...
...
End With
.Visible = xlSheetHidden
End With
Next it
Mais tu dois aussi modifier ainsi, en haut du code :
...
For Each Sh In Sheets
If Sh.Name <> "Sheet1" Then
Sh.Visible = xlSheetVisible
Sh.Delete
End If
Next Sh
...
Bonne journée