Erreur macro sur fonction "If Not Intersect..."

Bonjour à tous,

Je débute en macro, et à force de patience de d'heures de lecture sur les forum adéquats, je parviens petit à petit à faire ce que je veux. Cependant, voila que je me heurte à un problème que je n'arrive pas à résoudre malgré mon acharnement depuis quelques jours.

J'ai une feuille de calcul donc avec un macro qui contient ce code (pour nettoyer une zone de la feuille de toutes les formes qui y sont intégrées). La seconde partie servant à supprimer le contenu de la cellule permettant via une autre macro d'y intégrer ces fameuses formes

Sub Effacer_forme_zone_dessin()
    ActiveSheet.Unprotect "moncode"
        For Each s In ActiveSheet.Shapes
            If Not Intersect(s.TopLeftCell, Range("$B$31:$Z$47")) Is Nothing Then
                s.Delete
            End If
        Next s
    ActiveSheet.Protect "moncode"
End Sub


Sub Effacer_code_chassis()
    ActiveSheet.Range("Y48").Select
    Selection.ClearContents
End Sub

Macro activée par un bouton auquel est appliqué ce code :

Sub Nettoyer_zone_dessin()
    Call Effacer_forme_zone_dessin
    Call Effacer_code_chassis
End Sub

Le problème est le suivant. Lorsque j'applique cette macro, l'effacement se fait sans soucis. En revanche, si je modifie une zone en particulier dans la feuille (définie plus bas dans ce message), la macro présente une "Erreur d'exécution '1004' ...".

La zone modifiée qui provoque ce blocage de la macro est la suivante... Dans la feuille, ce code qui affiche ou masque des shapes (shapes dans une zone autre que celle qui est nettoyé par la macro qui pose problème définie plus haut) :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If [H19] = "En tunnel" Then 'Si cellule H19 = "En tunnel"
        ActiveSheet.Shapes("Rectangle 1").Visible = True 'Affiche la forme
        ActiveSheet.Shapes("Rectangle 2").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 3").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 4").Visible = False 'Masque la forme
    ElseIf [H19] = "En applique intérieure" Then
        ActiveSheet.Shapes("Rectangle 1").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 2").Visible = True 'Affiche la forme
        ActiveSheet.Shapes("Rectangle 3").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 4").Visible = False 'Masque la forme
    ElseIf [H19] = "En applique extérieure" Then
        ActiveSheet.Shapes("Rectangle 1").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 2").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 3").Visible = True 'Affiche la forme
        ActiveSheet.Shapes("Rectangle 4").Visible = False 'Masque la forme
    ElseIf [H19] = "Autre" Then
        ActiveSheet.Shapes("Rectangle 1").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 2").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 3").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 4").Visible = True 'Affiche la forme
    ElseIf [H19] = "" Then
        ActiveSheet.Shapes("Rectangle 1").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 2").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 3").Visible = False 'Masque la forme
        ActiveSheet.Shapes("Rectangle 4").Visible = True 'Affiche la forme
    End If
If Not Application.Intersect(Target, Range("Y48")) Is Nothing Then
    Call Inserer_schema1à100_F1
    Call Inserer_schema101à200_F1
    Call Inserer_schema201à300_F1
End If
End Sub

Si la feuille est ouverte avec la Shapes "Rectangle 1" en "True" et les autres en "False", alors le nettoyage se fera sans soucis, et si je change, message d'erreur. Et si je reviens sur "Rectangle 1", ça ne se remettra pas à marcher pour autant.
Un vrai casse-tête :/

Pas évident de fournir des explications claires sans vous joindre le fichier. Y a-t-il une plateforme sur laquelle je pourrais déposer ce fichier pour que vous y voyiez plus clair, et réussissiez j'espère à m'éclairer sur ce problème