XL 2013 Copie filtre existant active macro remet le filtre à l'identique

[CGU2022.]

Bonjour à toutes et à tous.....

J'ai une macro qui copie et colle des valeurs de cellules.
Pour que cela marche je dois libérer le filtre exitant ActiveSheet.Range("$H$10:$H$2000").AutoFilter Field:=1

ci dessous la macro
Sub Cumul()

ActiveSheet.Range("$H$10:$H$2000").AutoFilter Field:=1 'libère le filtre qu'il soit
Range("k18:k1859").Copy 'copie la sélection colonne k
Range("I18").PasteSpecial Paste:=xlPasteValues 'colle la sélection à partir d'une cellule
Range("J18:J1859").ClearContents 'efface la colonne J


End Sub

Mon souhait remettre le filtre à l'identique après l'exécution de la macro qu'il soit actif ou pas ....


Cordialement ......

 

[Phil69970]

Bonjour à tous

@christophe.garrigou@gmail
La logique est de valider le post contenant la réponse qu tu as choisi et non pas ton propre post car tu n'as rien trouvé du tout donc ici tu devrais valider le post #5 de @TooFatBoy si j'ai bien suivi

@Phil69970

 

[TooFatBoy]

La logique est de valider le post contenant la réponse qu tu as choisi et non pas ton propre post

Le code VBA qu'il dit avoir résolu son problème est contenu dans le message coché et c'est le plus important.
Mais en toute logique tu as bien sûr parfaitement raison.