XL 2016 Code VBA pour garder les filtres d'entête actifs - Excel 2016

Bonjour,

J'ai créé une macro avec un filtre élaboré. Cependant, à chaque fois que j'exécute ma macro, les filtres en entête disparaissent. Si je clique à nouveau, ils réapparaissent. J'ai essayé un code qui permet de les laisser actifs peu importe qu'ils le soient déjà ou pas mais je dois avoir fait une erreur car ça ne fonctionne pas.

Avez-vous une solution pour moi?


Petite précision: cela fonctionne pour mon onglet "Sondage" mais pas pour l'onglet "Rés".

Merci beaucoup!

Voici mon code:
Sub M_Res()
'
' M_Res Macro

'

Sheets("Rés").Select
Range("T_Res").Select
Selection.ClearContents
Range("A2").Select
ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 91
Range("DD2").Select
Sheets("Sondage").Columns("AB").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Rés!Criteria"), CopyToRange:=Range( _
"T_Res[#All]"), Unique:=False

ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-18


If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1B1").AutoFilter

End If

Sheets("Sondage").Select
If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1B1").AutoFilter

End If
Sheets("Rés").Select

Range("A2").Select
End Sub