Macro de sélection d'une valeur donnée dans un filtre

Bonsoir,

J'ai enregistré une macro qui a pour objectif de n'afficher que les valeurs "VRAI par rapport à un filtre posé sur une plage de cellules.

Lorsque je le fais manuellement les valeurs "VRAI" sont bien affichées, par contre quand je fais tourner la macro
(ActiveSheet.Range("$A$3:$D$9").AutoFilter Field:=4, Criteria1:="VRAI")
l'ensemble des cellules comprises dans le filtre se masquent.

Si une âme généreuse a la solution ça serait du tonerre.

Merci

Gomaub

PS: j'ai joint le fichier avec la macro