XL 2013 onglet apparait selon un résultat + message si la case est selectionné

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet, NF As String
    If Not Intersect(Target, [C5:C7]) Is Nothing Then
        Application.ScreenUpdating = False
        NF = Worksheets("données").[D11]
        For Each ws In ActiveWorkbook.Worksheets
            On Error Resume Next
            Worksheets(NF).Visible = True
            If ws.Name <> "interface" And ws.Name <> NF Then ws.Visible = False
            On Error GoTo 0
        Next ws
        Application.ScreenUpdating = False
    End If
End Sub

=EQUIV(interface!$C$5;données!$B$3:$B$4;0)*10+EQUIV(interface!$C$7;données!$D$3:$D$4;0)

=RECHERCHEV($C$11;$C$6:$D$9;2;FAUX)