Microsoft 365 Exécuter macro après lancement hypertexte

Bonjour à tous, le forum,

Dans mon 1er fichier, je lance 1 macro ouvrant 1 lien hypertexte vers mon 2ème fichier.
1 autre macro placée dans le 1er fichier s'exécute, mais elle s'exécute avant que le 2ème fichier soit ouvert donc j'ai 1 erreur.

Comment faire pour que la 2ème macro s'exécute après l'ouverture du 2ème fichier ?

Voici mon code :

Sub ADD_CHANGE_CONTACT()
With Sheets("Listes")
.Visible = True
.Activate
derlig = [A1].End(xlDown).Row
dercol = [A1].End(xlToRight).Column
.Range(Cells(derlig, 1), Cells(derlig, dercol)).Copy
End With
'Ouverture 2ème fichier s'appelant SEED ORDER
Range("Tableau32[LIEN TRAME SEED ORDER]").Hyperlinks(1).Follow 'NewWindow:=False, AddHistory:=True

Call macro1

End Sub

'2ème macro devant s'exécuter après l'ouverture du 2ème fichier
Sub macro1()
With Windows("SEED ORDER.xlsm")
.Activate
With Sheets("Listes")
.Visible = True
.Activate
derlig = [A1].End(xlDown).Row + 1
.Cells(derlig, 1).PasteSpecial xlPasteValues
End With
Sheets("Listes").Visible = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
End With

End Sub