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