'Gestion de la page (pied de page, marge) avt impression
With ActiveSheet.PageSetup
.PrintTitleRows = "$7:$7"
.PrintTitleColumns = ""
.PrintQuality = 600
.LeftFooter = "&""Arial,Italique""Devis - xxx yyyyyyyyyy"
.CenterFooter = "Page &P de &N"
.RightFooter = "&G"
.LeftMargin = Application.InchesToPoints(0.43)
.RightMargin = Application.InchesToPoints(0.43)
End With