Sub Impression()
Dim Sem, Cell_SEM As Range
Sem = InputBox("Numéro semaine?")
Set Cell_SEM = Columns(5).Find(What:=Sem, After:=Cells(4, 5), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)
ActiveSheet.PageSetup.PrintArea = Cells(Cell_SEM.Row, 1).Resize(10, 27).Address
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub