Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$J$16" 'Cellule J16 = réponse à la question "S'agit-il d'un travail affecté gaz ?
Sheets("Tvx affectés gaz").Visible = IIf(Target = "OUI", True, False) 'On masque ou non cette feuille
Case "$J$17" 'Cellule J17 = réponse à la question "S'agit-il d'un travail à chaud ?
Sheets("Tvx a chaud").Visible = IIf(Target = "OUI", True, False) 'On masque ou non cette feuille
Case "$J$18" 'Cellule J18 = réponse à la question "S'agit-il d'un travail en espace clos ?
Sheets("Espaces clos").Visible = IIf(Target = "OUI", True, False) 'On masque ou non cette feuille
'et ainsi de suite pour chaque question
End Sub