Re : impression compilé
voilà mon code mais là il m'imprime sur deux page:
Private Sub btnimp_Click()
UserForm1.MultiPage1.Value = 4
UserForm1.PrintForm
UserForm1.MultiPage1.Value = 0
Sheets("fenêtre").Activate
Range("A1:J33").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("a1").Select
Sheets("feuil1").Activate
End Sub