Une petite aide en vba

Dans ThisWorbook, utilise

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 'Insère ton code ici
End Sub

Le procédures et fonctions utilisées dans ThisWorkbook sont valables pour toutes les feuilles, présentes et à venir.

Je vais essayé ceci je te tiendrais au courant !

Voici mon programme de mis en page avec en-tête et pied-de-page :

Sub entetepieddepage()

'Définition des différentes variables
'------------------------------------

Dim texte As String
Dim sh As Worksheet

' Définition des caractéristiques de présentation de la page :
' --------------------------------------------------------

Set sh = Worksheets("Description")
With sh
With .PageSetup

.RightHeader = ""
.LeftHeader = ""

End With
End With

'Ecriture sur une page de la mise en page définie précédemment :
'--------------------------------------------------------

Set sh = Worksheets("IE HTTP Report Format")
With sh
With .PageSetup

.LeftHeader = ""
.RightHeader = Sheets("Description").Range("B1")
.RightHeader = Sheets("Description").Range("B1") & Chr(13) & Sheets("Description").Range("B2")
.RightHeader = Sheets("Description").Range("B1") & Chr(13) & Sheets("Description").Range("B2") & Chr(13) & Sheets("Description").Range("B3")

.CenterFooter = Sheets("Description").Range("A4")
.RightFooter = ""

End With
End With

'Message d'alerte de fin de la maccro-cellule
'--------------------------------------------

MsgBox ("Mise en page accomplie!")

End Sub

Donc, c'est bien ceci que je veux afficher dans chaque onglet, que j'ai crée au préalable ! J'ai essayé ta fonction mais, je ne vois pas trop ce qu'elle fait du moins, je veux dire j'ai pas le résultat attendu !

Ma fonction permet de passer les paramètres d'impression.

Le 'Insère ton code ici m'évitait un CTRL+C, CTRL+V. pur le code que tua avis créé.