Voici mon probleme:
Je souhaiterai automatiser l'impression d'un document sur une feuille A4 sachant que ce doc, pour des soucis de lisibilté, est qualibré sur 2 pages.
(Je ne peux le limiter à une page sinon celui-ci serait illisible)

Une fois qualibré, je copie la partie contenue sur la page 2 pour la coller à coté de la partie sur la page 1.

Le soucis etant d'automatiser une pratique qui à la base est tirée par les cheveux...

J'ai donc tenté de créer une macro, j'ai un soucis quand je dois selectionner la partie sur la page 2, la difficulté étant de d'identifier cette partie.

Voici le code associé que j'ai commencé à produire (Je suis débutant) en mixant enregistrement et parties de forum:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Application.PrintCommunication = True
    ActiveWindow.View = xlPageLayoutView
 
    Dim N As Long
    Dim Wksht As Worksheet, Cellule As Range
    Dim VPC As Long
 
    VPC = Wksht.VPageBreaks.Count + 1
    N = Range("A1").End(xlDown).Row
    ActiveWindow.SmallScroll Down:=N
 
    Range("VPC:N").Select
    Selection.Copy
Le message d'erreur survient à " VPC = Wksht.VPageBreaks.Count + 1": Erreur d'execution 91, Variable objet ou variable de bloc With non definie.

Merci pour votre aide.