Sub test_plages()
Dim rng As Range, cel As Range, Zone As Range, sem As Byte
ActiveSheet.Unprotect Password:=("aps2018")
sem = CByte(Format(Date, "ww", 1, 1))
' Cellule semaine actuelle
ActiveWindow.SplitColumn = 3
ActiveWindow.SplitRow = 5
Set cel = ActiveSheet.Cells(1, ActiveWindow.SplitColumn + sem)
Set Zone = Cells(1, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 3 + sem + 12)
MsgBox cel.Address 'pour test
' Zone d'impression
MsgBox Zone.Address 'pour test
ActiveSheet.PageSetup.PrintArea = Zone.Address
' Masquer les lignes inutiles
MsgBox cel.Offset(0, 0 - sem).Resize(1, sem - 1).Address 'pour test
cel.Offset(0, 0 - sem).Resize(1, sem - 1).EntireColumn.Hidden = True
ActiveSheet.PrintPreview
End Sub