Espace pile insuffisant

Bonjour,

J'ai un souci, peut-être auriez vous la solution.

J'ai un fichier Excel qui au par avant, à son ouverture, lançait un Userform sur lequel
il y avait un bouton "Charger".
Lorsque je cliquais sur ce bouton la macro s'exécutait correctement et chargait le contenu
de feuille d'autre fichier Excel dans les feuille du fichier contenant la macro.

Afin de ne plus avoir besoin de cliquer sur le bouton, j'ai retiré le userform, j'ai mis le code
du bouton dans un module et dans ThisWorkbook j'ai mis :

Sub Workbook_Activate()

Call Charger

End sub

Ce code s'éxécute car mon erreur est surligné dans le code de sub Charger().

Je vous met le code :

Sub Charger()

Application.ScreenUpdating = False

FichierCIBLE = ActiveWorkbook.Name

ChemIND = "c\...\"
ChemCOM = "C\...\"

Application.ScreenUpdating = False
    
    Sheets("Données COM").Select
    Workbooks.Open Filename:=CheminCOM & "COMMU.xls" 'L'erreur apparait ici
    Columns("A:X").Select
    Selection.Copy
    Windows(FichierCIBLE).Activate

    Sheets("Données COM").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows(COMMU.xls).Close (False)

'Je fais ensuite le même code pour un autre fichier

End sub

Mon erreur est "espace pile insuffisant"

Merci pour votre aide.

Ps : Je ne peux pas joindre le fichier car celui ci est confidentiel