Re : macro pour imprimer
Bonsoir
Merci de vos réponses pour le code je l'ai mis comme ceci :
ActiveSheet.PageSetup.Zoom = Int(100 * Application.Min(4, Range("A1:G56")
.Height / Range("semaine").Height, Range("A1:G56").Width
Application.Goto Reference:="semaine"...