Private Sub Worksheet_Change(ByVal Target As Range)
Application.Volatile
If Not Intersect(Target, [D9]) Is Nothing Then
If Target = "Lignes masquées" Then
Rows("11:14").EntireRow.Hidden = True
ElseIf Target = "Lignes apparentes" Then
Rows("11:14").EntireRow.Hidden = False
End If
End If
End Sub