Macro de tri

Salut,

Qqch du genre à coller dans un module standard:

sub Cacher(F as worksheet)
dim I as long
application=screenupdating=false
with F
for i=1 to range("A65536").end(xlup).row
if .range("A"&i)=1 then .range("A"&i).entirerow.hidden=true
next i
end with
end sub

sub AfficherTout(F as worksheet)
F.usedrange.entirerow.hidden=false
end sub


ENsuite tu appelles au choix cacher sheets("Lenomdetafeuille")
et AfficherTout sheets("Lenomdetafeuille")


A+++