Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$3" Or Target.Address = "$C$4" Or Target.Address = "$C$5" Then
If Application.CountIf(Range("C3:C5"), "OUI") + Application.CountIf(Range("C3:C5"), "N/A") = 3 Then
Rows("6:7").EntireRow.Hidden = True
End If
If Application.CountIf(Range("C3:C5"), "NON") > 0 Then
Rows("6:7").EntireRow.Hidden = False
End If
End If
End Sub