Sub PlacementSurLaLigneAmoi(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("EH1:FF" & Derlig)
Range("EM7:EM105").Sort Key1:=Range("EM7"), 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:FF").EntireColumn.Hidden = True
With ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftFooter = ""
.CenterFooter = "&""Times New Roman,italique""&18" & [FH8] & Chr(10) & [Fk8] & " , " & [Fl8] & " , " & [Fm8] & " , " & [Fn8] & " " & [FO8] & Chr(10) & [FQ8]
'.RightFooter = ""
End With
With ws.PageSetup
.PrintArea = MaPlage.Address
'.LeftHeader = ""
.CenterHeader = "&""Times New Roman,italique""&20" & [EO5] & Chr(10) & [EM2] & " " & [FO8] & Chr(10) & Chr(10) & [EK3] & Chr(10) & [EI4]
'.RightHeader = ""
End With
ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
End Sub