Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("3:14").Hidden = [B1] <> "oui"
If [B1] = "non" Then Rows("3:14").Hidden = True
If [B1] = "oui" Then Rows(4).Hidden = False
Rows("9:14").Hidden = [B5] <> "A"
If [B5] = "B" Then Rows("9:14").Hidden = True
If [B5] = "A" Then
Rows("8:14").Hidden = True
Range(Range("A7"), Range("A7").Offset(Range("B7"), 0)).EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub