Macro liste déroulante+impress°+mise en page

Bonjour,

J'aimerais utiliser une macro afin d'imprimer un tableau qui se modifiera à chaque changement de critère dans une liste déroulante. Pour cela j'ai déjà trouvé cette macro pour créer la boucle :

Sub test()

Dim c As Range
For Each c In Range("test1")
Range("test2").Value = c.Value
Worksheets("Feuil1").PrintOut
Next c

End Sub

Cette macro imprime bien un tableau par page.
Cependant, mon problème est qu'il me manque la mise en page...En effet, j'aimerais pouvoir imprimer plusieurs tableaux par page...sachant que chaque tableau est soumis à un critère de liste déroulante différent. Est-ce possible?

Merci d'avance

nemzor