Impression sur plusieurs feuilles

Bonjour, je souhaite définir des zones d'impressions sur plusieurs feuilles d'un même classeurs. Jusqu'ici j'ai réuissi.

Sur une des feuilles j'ai plusieurs zones à définir, j'y parviens aussi, cependant lors de l'impression je n'ai qu'une feuille imprimé par feuille de calcul, hors je voudrais une feuille imprimée par zone définie.

Sub pdftv()
Dim a As String
Dim b As Byte
Dim x As Integer
Dim impression As String

Select Case Worksheets("Donateursdonataires").Range("R41")
    Case 1: a = "K"
    Case 2: a = "N"
End Select

b = Worksheets("Donateursdonataires").Range("R41") + 7

Sheets("Donateursdonataires").PageSetup.PrintArea = "B3:" & a & b

Sheets("Biens à donner").PageSetup.PrintArea = "A3:U" & Worksheets("Biens à donner").Range("AG2") + 4

impression = ""
For x = 1 To Worksheets("Donateursdonataires").Range("R42")
    impression = impression & Worksheets("Formation des lots").Range(Worksheets("Formation des lots").Cells(1, 1 + 10 * (x - 1)), Worksheets("Formation des lots").Cells(30, 10 + 10 * (x - 1))).Address & ","

Next x

impression = Left(impression, Len(impression) - 1)
'MsgBox (impression)
'impression = """" & impression & """"
Worksheets("Formation des lots").PageSetup.PrintArea = impression

Sheets(Array("Donateursdonataires", "Biens à donner", "Formation des lots")).PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True

End Sub

Comment faire ?