With ActiveSheet.PageSetup
VEntete = ActiveSheet.Cells(4, 3).Value
VEntete1 = ActiveSheet.Cells(5, 3).Value & Cells(5, 4).Value & _
" " & Cells(5, 7).Value & " " & Cells(5, 8).Value
.LeftHeader = "&""BOOK ANTIQUA,Gras italique""&21" & VEntete & Chr(10) & _
"&""BOOK ANTIQUA,Gras italique""&15" & VEntete1
End With