Sub PlacementSurLaLigne(ByVal WsName As String)
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
Set Ws = Worksheets(WsName)
Derlig = Ws.Range("EL" & Ws.Rows.Count).End(xlUp).Row
Set MaPlage = Ws.Range("EI1:FA" & Derlig)
Range("EO7:EO105").Sort Key1:=Range("EO7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Rows("2:4").Hidden = True
Columns("EM:EN").EntireColumn.Hidden = True
Columns("EP:FA").EntireColumn.Hidden = True
With Ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftFooter = ""
'.CenterFooter = "&""Times New Roman,italique""&18" & [FC8] & Chr(10) & [FE8] & " " & [FF8] & " , " & [FG8] & " , " & [FH8] & " " & [FI8] & " " & [FJ8]
'.RightFooter = ""
End With
With Ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftHeader = ""
.CenterHeader = "&""Times New Roman,italique""&20" & [EN5] & Chr(10) & [EM2] & " " & [FJ8] & Chr(10) & Chr(10) & [EK3] & Chr(10) & [EI4]
'.RightHeader = ""
End With
Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage
End Sub