Sub IMPRIM()
Sheets(1).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(1).[A20] = "", 19, 40)
Sheets(2).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(2).[A20] = "", 19, 40)
Sheets(3).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(3).[A20] = "", 19, 40)
Sheets(Array(1, 2, 3)).PrintPreview
End Sub