Impression de page

Quelqu'un peut m'aider dans la formule ?

Je veux imprimer la zone d'impression active ainsi que la "feuil28"

Sub Imprimer()
  Dim temp1(), temp2()
  For Each c In [Zone_d_impression]
    If c.Interior.ColorIndex <> xlNone Then
       n = n + 1
       ReDim Preserve temp1(1 To n)
       ReDim Preserve temp2(1 To n)
       temp1(n) = c.Address
       temp2(n) = c.Interior.ColorIndex
       c.Interior.ColorIndex = xlNone
    End If
  Next c
   'ActiveSheet.PrintPreview ' ou ActiveSheet.PrintOut
  'ActiveWorkbook.Sheets("Feuil28").PrintPreview Copies:=2
  For i = 1 To n
    Range(temp1(i)).Interior.ColorIndex = temp2(i)
  Next i
End Sub

BONJOUR Starfox

Merci de lire/relire la charte du forum [A LIRE AVANT DE POSTER] et notamment

• Un minimum de politesse est de rigueur (bonjour, SVP, merci, ...), sans cela vous aurez peu de chance d'obtenir une réponse et vous risquez de voir votre message supprimé par un modérateur.

1er post à éditer SVP

ESt-ce qu'une personne peut m'aider avec ma formule ?

Je veux imprimer la zone d'impression de la feuille active ainsi que la "feuil28" en deuxième page par default.

Sub Imprimer()
  Dim temp1(), temp2()
  For Each c In [Zone_d_impression]
    If c.Interior.ColorIndex <> xlNone Then
       n = n + 1
       ReDim Preserve temp1(1 To n)
       ReDim Preserve temp2(1 To n)
       temp1(n) = c.Address
       temp2(n) = c.Interior.ColorIndex
       c.Interior.ColorIndex = xlNone
    End If
  Next c
   'ActiveSheet.PrintPreview ' ou ActiveSheet.PrintOut
  'ActiveWorkbook.Sheets("Feuil28").PrintPreview Copies:=2
  For i = 1 To n
    Range(temp1(i)).Interior.ColorIndex = temp2(i)
  Next i
End Sub

Merci de votre temps et de votre générosité