Impressions...

Bonsoir à toutes et à tous

Je voudrais créer une zone d'impression dynamique, qui s'adapte en fonction du remplissage de mon fichier base de données.

J'ai trouvé ce code d'impression sur le net. Il sera surement à améliorer pour le msgbox.
Le code fonctionne mais je n'arrive pas à imprimer sur une seule feuille A4.

Mon fichier va de la colonne A à J

A chaque tirage, il me sort 2 pages de mon fichier scindé en deux au niveau des colonnes (1ére page : de la colonne A à la colonne E puis la 2éme page : de D à J). Je n'arrive pas à faire sortir l'ensemble sur une page.

Au niveau de l'impression dynamique. Le code marche.

Merci beaucoup de m'aider

Sub Image3_Cliquer () 'toutes les 52 lignes (à régler)
Dim N As Long
Dim I As Integer, Rep As Integer
With ActiveSheet
With ActiveSheet.PageSetup
.PrintTitleRows = "$A$5:$I$8"

End With
N = .Range("b65536").End(xlUp).Row
.ResetAllPageBreaks 'efface sauts de pages existants
.PageSetup.PrintArea = "A5:J" & N
For I = 1 To N / 52
.HPageBreaks.Add Before:=Rows(I * 52 + 1)
.ActiveWindow.SelectedSheets.PrintPreview
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1

Next I
Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
If Rep = vbYes Then
.PrintOut
End If
End With
End Sub