Bonsoir,
avec ce code, tu détermines la zone d'impression (j'ai considéré que "Résultat du Mois" était toujours dans la colonne E.
De plus, l'impression se fait en mode "Paysage", centrée horizontalement, et sur une seule feuille en largeur (il peut y avoir plusieurs feuilles en hauteur)
Si c'est correct, tu peux remplacer le .PrintPreview (aperçu avant impression) par .PrintOut (impression)
Sub imprime()
With Sheets("Feuil1")
.PageSetup.PrintArea = "$A$1:$K$" & .[E65000].End(xlUp).Row
.PageSetup.FitToPagesWide = 1
.PageSetup.CenterHorizontally = True
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End Sub