Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:B4]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If [B1] = "" Then [B1] = "oui"
If [B2] = "" Then [B2] = "pressostatique"
If [B3] = "" Then [B3] = "TSX37"
If [B4] = "" Then [B4] = "DANFOSS"
Rows("2:4").Hidden = [B1] <> "oui"
If [B2] = "pressostatique" Then Rows("3:4").Hidden = True
If [B2] = "automate" Then Rows(4).Hidden = True
If [B2] = "regulateur" Then Rows(3).Hidden = True
End Sub