Erreur exécution 13 : incompatibilité de type

Option Explicit
Dim wsh As String
Dim sh As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C7")) Is Nothing And Target <> "" Then
        wsh = Target
            With Worksheets(wsh)
                .Visible = True
                .Activate
            End With
            For Each sh In ThisWorkbook.Sheets
                 If sh.Name <> "Feuil1" And sh.Name <> "Feuil2" And sh.Name <> "Feuil3" And sh.Name <> "Feuil4" And sh.Name <> "Feuil5" And sh.Name <> "Feuil6" And sh.Name <> wsh Then
                    sh.Visible = xlVeryHidden
                End If
            Next
    End If
End Sub