Impression avec VBA probleme de code

[microd]

Salut a tous

En parcourant le forum ( on y trouve de vrais merveilles surtout si on a du mal avec le vba ) j'ai trouvé un usf pour gerer des impressions :

d'une part il y a une listbox avec les différentes feuilles présentent dans le classeur, on l'on peut selectionner les feuilles ( avec un petit bouton à côté) et un bouton imprimer ca marche du tonnerre !!!! le seul Hic c'est que les impressions se font feuilles par feuilles et ca me pose un probleme de pagination.. elle ne se fait pas sur l'ensemble de l'impression

voila le code

Private Sub CmdImprimer_Click()
Application.ScreenUpdating = False

For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
Application.DisplayAlerts = False
PrtScreenUpDate False
Sheets(LbFeuilles.List(i)).PrintOut
PrtScreenUpDate True

Else
End If
Next i
'Application.DisplayAlerts = True
Unload Me
Application.StatusBar = False

Application.ScreenUpdating = True
'Cmdfermer.
End Sub

j'ai enregistré une macro d'apprentissage qui elle fonctionne bien mais je n'arrive pas a l'adapter a USF

Sub Macro1()

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Application.Run "Classeur1!Macro1"
End Sub

Et la je cale ......si quelqu'un y comprends quelques choses à Array

Merci d'avance