Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
Rows("6:26").EntireRow.Hidden = False
[If Worksheets("Page de garde").Range("D28").Value = "1" Then Rows("9:26").EntireRow.Hidden = True
If Range("Page de garde!D28").Value = "2" Then Rows("11:26").EntireRow.Hidden = True
If Range("o1").Value = "3" Then Rows("13:26").EntireRow.Hidden = True
If Range("o1").Value = "4" Then Rows("15:26").EntireRow.Hidden = True
If Range("o1").Value = "5" Then Rows("17:26").EntireRow.Hidden = True
If Range("o1").Value = "6" Then Rows("19:26").EntireRow.Hidden = True
If Range("o1").Value = "7" Then Rows("21:26").EntireRow.Hidden = True
If Range("o1").Value = "8" Then Rows("23:26").EntireRow.Hidden = True
If Range("o1").Value = "9" Then Rows("25:26").EntireRow.Hidden = True
Application.ScreenUpdating = -1
End Sub