Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B15"), Target) Is Nothing And Target.Count = 1 Then
If [B15] = "Barreaudage" Then Rows("29:56").EntireRow.Hidden = True
If [B15] = "Remplissage complet" Then Rows("17:42").EntireRow.Hidden = True: Rows("49:56").EntireRow.Hidden = True
If [B15] = "Remplissage soubassement" Then Rows("17:49").EntireRow.Hidden = True
If [B15] = "Remplissage lisse" Then Rows("17:29").EntireRow.Hidden = True: Rows("42:56").EntireRow.Hidden = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B15"), Target) Is Nothing And Target.Count = 1 Then Rows("17:56").EntireRow.Hidden = False
End Sub