Excel ne répond plus / Erreur 1004

Bonjour,

Je rencontre actuellement un problème sur un fichier excel que l'on va nommer S1.

Cet excel produit des synthèses en se basant notamment sur un autre fichier que l'on va nommer A1.

Lors de l'exécution du fichier S1 j'ai deux cas qui se présente :

-Le fichier s'ouvre puis plante rapidement "Excel ne répond pas"

-Une fenêtre de débogage apparaît en me notifiant une erreur 1004.

Visual basic me renvoie vers cette ligne :

Macro du fichier S1

Private Sub workbook_open()
'
' MAJtableaux Macro
' met à jour les tableaux croisés à l'ouverture
'

'
Sheets("TC1J").Visible = True
Sheets("TC2H").Visible = True

Sheets("TC1J").Select

Range("G11").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("TC2H").Select
Range("H20").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("Jour").Select
Range("C1").Select

Sheets("TC2H").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("TC1J").Select
ActiveWindow.SelectedSheets.Visible = False

Sheets("Jour").Select

Workbooks.Open ("\\*********\A1")

ThisWorkbook.Activate


End Sub

J'ai effectué quelques recherches sur internet qui m'ont amené à remplacer les .Select par des .Activate (seulement pour les feuilles) mais cela ne règle pas le problème.

Macro du fichier A1

Private Sub workbook_open()
'
' MAJtableaux Macro
' Récupère les données du fichier ***** et met à jour les tableaux croisés à l'ouverture
'
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "*************"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
wbk1.Sheets(1).Range("$A$1:$AF$20000").Value = wbk2.Sheets(1).Range("$A$1:$AF$20000").Value
wbk2.Close

Sheets("TCJ").Select
Range("B4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

Sheets("*******").Select
Range("B4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

Sheets("TCJ1").Select
Range("B4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

Sheets("TCJ").Select
Range("B4").Select


End Sub

Je tiens à préciser que je n'ai aucune connaissance en langage VBA.

Je vous remercie d'avance pour votre aide !

Bonjour et bienvenue

Lis les règles du forum ... il vaut mieux que tu postes un fichier (simplifié). Par ailleurs, écris ton code dans la balise </> que tu trouves au-dessus du cadre de réponse et indente ton code pour plus de lisibilité.