Sub ChangementPage()
Dim NoLigne As Long
Dim No As String, Dt As String
No = Year(Now) & " - " & Sheets("facturation").Range("A1")
Dt = Format(Date, "dd mmmm yyyy")
With Sheets("facturation").PageSetup
'entête au centre
.CenterHeader = "&12&""Arial,Gras""FACTURE SAV N° " & No & " en date du " & Dt '<-- style Arial + gras + taille 12
'pied de page au centre
.CenterFooter = "&28""SIRET : 123456789 - NAF : 123 - RCS : 12345 - N° TVA : FR012345678" & Chr(10) & "assurance décennale n°123456789 de chez untel" '<-- style par défaut + taille 8
End With
End Sub