toujours probleme d'impression

Salut

je viens de faire un bout de code pour un autrre post à toi d'adapter la plage

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

puis ensuite tu imprimes
sub princ()
cacher sheets("lenomdetafeuille")
sheets("lenomdetafeuille").printout

pour réaffciher tout
sub AfficherTout(F as worksheet)
F.usedrange.entirerow.hidden=false
end sub


A+++