Selection.AutoFilter Field:=1, Criteria1:=''différent de' 0', Operator:=xlAnd
Range('A65536').Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address