Sub Imprimer_Vitesse() '(le bon)
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
Set Ws = Worksheets("VeteransHommes")
Derlig = Ws.Range("E" & Ws.Rows.Count).End(xlUp).Row
Set MaPlage = Ws.Range("B1:I" & Derlig)
With Ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftFooter = ""
.CenterFooter = "&""Times New Roman,italique""&18" & [CN8] & Chr(10) & [CP8] & " " & [CQ8] & " , " & [CR8] & " , " & [CS8] & " " & [CT8] & " " & [CU8]
' .RightFooter = ""
End With
With Ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftHeader = ""
.CenterHeader = "&""Times New Roman,italique""&20" & [G1] & Chr(10) & [H3] & " " & [CU8] & Chr(10) & [B1] & Chr(10) & Chr(10) & [C3] & Chr(10) & [C1] & " " & [D1] & " " & [B3]
'.RightHeader = ""
End With
Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub