Sub Impression_Entetes_Multiples()
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
'############ Ici à la place de "Titre et Légende" mettre le texte souhaité
.CenterHeader = "Titre & Légende"
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
'############ Ici à la place de "Légende" mettre le texte souhaité
.CenterHeader = " Légende"
End With
'############# Ici Mettre à la place de 8 le nombre de pages du document.
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=8, Copies:=1, Collate:=True
End Sub