Bonjour,
je ne sais pas faire de VBA, mais en regardant ton VBA, si tu rajoutes la ligne :
ActiveSheet.Range("A1:E" & Range("A65535").End(xlUp).Row).AutoFilter Field:=4, Criteria1:=">0"
ça devrait fonctionner
edit : Je n'avais pas vu au dessus mais je suis content de voir qua quelqu'un pense comme moi !!!