Sub Afficher_semaine()
Dim der&, i&, dat
Application.ScreenUpdating = False
der = Cells(8, Columns.Count).End(xlToLeft).Column
If der > 17 Then Columns(18).Resize(, der - 17).Hidden = True
For i = 18 To der
If Application.WeekNum(Cells(8, i), 21) = Range("P2") Then Columns(i).Hidden = False
Next i
der = Cells.SpecialCells(xlCellTypeLastCell).Row
If der > 0 Then Rows(11).Resize(der - 10).Hidden = True
For i = 11 To der
If IsDate(Cells(i, "N")) Then
For dat = Cells(i, "N") To Cells(i, "O")
If Application.WeekNum(dat, 21) = Range("P2") Then
Rows(i).Resize(2).Hidden = False
i = i + 1
Exit For
End If
Next dat
End If
Next i
End Sub
Sub Afficher_tout()
Application.ScreenUpdating = False
Columns.Hidden = False
Columns("A:B").Hidden = True
Rows.Hidden = False
End Sub