Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "liste de choix" Or _
Intersect(Target, Sh.[B1:B4]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If Target.Address = "$B$1" And Sh.[B1] = "oui" Then Sh.[B2] = "pressostatique"
If Target.Address = "$B$2" And Sh.[B2] = "automate" Then Sh.[B3] = "A"
If Target.Address = "$B$2" And Sh.[B2] = "regulateur" Then Sh.[B4] = "D"
Sh.Rows("2:4").Hidden = Sh.[B1] <> "oui"
If Sh.[B2] = "pressostatique" Then Sh.Rows("3:4").Hidden = True
If Sh.[B2] = "automate" Then Sh.Rows(4).Hidden = True
If Sh.[B2] = "regulateur" Then Sh.Rows(3).Hidden = True
End Sub