Erreur exécution 13 : incompatibilité de type

Bonjour,

Débutant sur Vba je rencontre une erreur d’exécution 13 au niveau de la ligne "If not application.intersect..."
Voilà mon code :
J'ai ajouté la première partie "Option explicit et dim" mais j'ai toujours une erreur dès que j'insère un ligne ou déplace une cellule sur ma feuille.

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

Merci pour votre aide !

Bonne journée