ActiveSheet.PageSetup.Zoom = Int(100 * Application.Min(4, Range("A1:G56").Height / Range("semaine").Height, Range("A1:G56").Width / Range("semaine").Width))
ActiveSheet.PageSetup.PrintArea = "semaine"
ActiveSheet.PrintPreview
MsgBox "La zone d'impression a été modifiée"