Sub Impression()
'
Dim Sem, i As Integer
'
Sem = InputBox("Numéro semaine?")
If Sem = 1 Then
i = 0
Else
i = (Sem - 1) * 7
End If
Range("A" & (6 + i) & ":" & "Z" & (12 + i)).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub