Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If Range("a1") = "1/2 Journée FO" Then
Range("4:9,18:23").EntireRow.Hidden = True
End If
If Range("a1") = "Journée FO / TDL" Then
Rows("18:23").EntireRow.Hidden = True
End If
If Range("a1") = "1/2 Journée TDL" Then
Rows("11:23").EntireRow.Hidden = True
End If
If Range("a1") = "1/2 Journée FF" Then
Rows("4:16").EntireRow.Hidden = True
Else
Rows("4:23").EntireRow.Hidden = False
End If
End If
End Sub