XL 2016 erreur systeme &h80004005 erreur non spécifié

For Each nom In ActiveWorkbook.Names
        sup = True
        For Each F In ActiveWorkbook.Worksheets
                If nom.Name Like F.Name & "!*" Or nom.Name Like "'" & F.Name & "'!*" Then sup = False
        Next F
        If sup Then nom.Delete 'supprime le nom sauf s'il est défini dans une feuille du document créé
    Next nom

If sup Then nom.Delete 'supprime le nom sauf s'il est défini dans une feuille du document créé

For Each nom In ActiveWorkbook.Names
     For Each F In ActiveWorkbook.Worksheets
        If nom.Name Like "*" & F.Name & "*" Then nom.Delete: Exit For
    Next F
Next nom

[A1].Name = "'Feuil1'!nom_1"

Sub testlecture()
MsgBox Feuil1.Names("'Feuil1'!nom_1").Name
MsgBox Feuil1.Names("'Feuil1'!nom_1").RefersTo
End Sub

Sub test()
[A1].Name = "nom_1"
[A2].Name = "nom_2"
[A3].Name = "nom_3"
End Sub

Sub testlecture()
MsgBox Names("nom_1").Name
MsgBox Names("nom_1").RefersTo
End Sub

Private Function PréfixeFeuille(ByVal Z As String) As String
   PréfixeFeuille = Left$(Z, PosPExcla(Z))
   End Function
Private Function PosPExcla(ByVal Z As String) As Long
Rem. Le nom de feuille peut contenir "!", et même "'!", ou commencer par "!", pourquoi pas, mais on ne peut
'    se contenter de chercher tout simplement le dernier "!" car la suite de Z peut aussi contenir "#REF!" !
   If Left$(Z, 1) = "'" Then PosPExcla = InStr(Replace(Mid$(Z, 2), "''", "??"), "'!") + 2 Else PosPExcla = InStr(Z, "!")
   End Function

Sub Test()
   Dim Nme As Name
   For Each Nme In ActiveWorkbook.Names
      If PréfixeFeuille(Nme.Name) <> PréfixeFeuille(Mid$(Nme.RefersTo, 2)) Then
         If MsgBox(Nme.Name & " " & Nme.RefersTo & vbLf & "à supprimer ?", _
            vbYesNo) = vbYes Then Nme.Delete
         End If
      Next Nme
   End Sub
Private Function PréfixeFeuille(ByVal Z As String) As String
   PréfixeFeuille = Left$(Z, PosPExcla(Z))
   End Function
Private Function PosPExcla(ByVal Z As String) As Long
Rem. Le nom de feuille peut contenir "!", et même "'!", ou commencer par "!", pourquoi pas, mais on ne peut
'    se contenter de chercher tout simplement le dernier "!" car la suite de Z peut aussi contenir "#REF!" !
   If Left$(Z, 1) = "'" Then PosPExcla = InStr(Replace(Mid$(Z, 2), "''", "??"), "'!") + 2 Else PosPExcla = InStr(Z, "!")
   End Function

Sub createNAMEniveaufeuille()
[A1].Name = "'Feuil1'!nom_1"
[A2].Name = "'Feuil1'!nom_2"
[A3].Name = "'Feuil1'!nom_3"
End Sub

Sub testlectureNameniveaufeuille()
MsgBox Feuil1.Names("'Feuil1'!nom_1").RefersTo 'lecture niveau feuille
MsgBox ThisWorkbook.Names("'Feuil1'!nom_1").RefersTo 'lecture niveau classeur
End Sub


Sub createNAMEniveauclasseur()
[A4].Name = "nom_4"
[A5].Name = "nom_5"
[A6].Name = "nom_6"
End Sub

Sub testlectureNameniveauclasseur()
MsgBox ThisWorkbook.Names("nom_4").RefersTo ''lecture niveau classeur
MsgBox Feuil1.Names("nom_4").RefersTo ' 'lecture niveau feuille ne peut pas fonctionner
End Sub

Sub testlecturecount()
MsgBox Feuil1.Names.Count
MsgBox ThisWorkbook.Names.Count
End Sub

MsgBox Feuil1.Names("nom_1").RefersTo 'lecture niveau feuille