ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = Range("A1") [COLOR="Green"][B]'si tu veux écrire cette cellule dans l'en-tête à gauche[/B][/COLOR]
.CenterHeader = Range("A1") [COLOR="Green"][B]'si tu veux écrire cette cellule dans l'en-tête au centre[/B][/COLOR]
.RightHeader = Range("A1") [COLOR="Green"][B]'si tu veux écrire cette cellule dans l'en-tête à droite[/B][/COLOR]
[COLOR="Green"][B]'(...)[/B][/COLOR]
End With
With ActiveSheet.PageSetup
.CenterHeader = Range("=Cover!E1:G3")
End With
Range("=Feuille1!G12")
Sheets("Feuille1").Range("G12")