Sub PlacementSurLaLigne(ByVal WsName As String)
Dim MaPlage As Range
Dim Derlig As Long
With ThisWorkbook.Worksheets(WsName)
Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
Columns("EM:EM").EntireColumn.Hidden = True
Columns("EO:EY").EntireColumn.Hidden = True
With .PageSetup
.PrintArea = "EI1:EY" & Derlig
[COLOR="#FFFF00"][COLOR="#FF0000"][U].LeftHeaderPicture.Filename = "C:\Users\Jacky\Logo.jpg"[/U][/COLOR][/COLOR]
.CenterHeader = "Times New Roman"
.CenterHeader = [EN5]
.RightHeader = "Essai 2"
' .LeftFooter = ""
.CenterFooter = ""
' .RightFooter = ""
End With
.PrintOut Copies:=4, Collate:=True
End With
End Sub