XL 2021 liaison entre deux tableaux

Private Sub Workbook_Activate()
Dim chemin$, w As Worksheet, wb As Workbook, ouvert As Boolean
chemin = Me.Path & "\Sauvegarde\" 'sous-dossier
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each w In Worksheets
    On Error Resume Next
    Set wb = Nothing: ouvert = False
    Set wb = Workbooks(w.Name & ".xlsx")
    If Err = 0 Then 'si le fichier est ouvert
        If wb.Saved Then 'et a été enregistré
            ouvert = True
        Else
            If MsgBox("Le fichier '" & w.Name & ".xlsx' est ouvert et a été modifié, voulez-vous enregistrer les modifications ?", vbYesNo +...