Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Dim titre As Variant
If Not Intersect(Target, [Q12]) Is Nothing Then
If LCase([Q12]) = "oui" Then: Sheets("Titre1").Visible = True: Else Sheets("Titre1").Visible = False
End If
If Not Intersect(Target, [Q43]) Is Nothing Then
If LCase([Q43]) = "oui" Then Sheets("Titre2").Visible = True Else Sheets("Titre2").Visible = False
End If
Fin:
End Sub