XL 2021 lien vers classeur excel

Private Sub Workbook_Open()

     Dim MaRéf As Range, Tb
    
     Set MaRéf = ActiveCell
     Application.EnableEvents = False
     Application.ScreenUpdating = False
    
'Liste des feuilles avec des liaisons vers le ClasseurSource :
'=============================================================
     Tb = Array("ShCible1", "ShCible2", "ShCible3")
'=============================================================
    
     NomDuClasseurSource = [ClasseurSource].Value
     Sheets(Tb).Select
     Cells.Replace What:=NomDuClasseurSource, Replacement:=NomDuClasseurSource, _
                   LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
     Application.Goto MaRéf
     Application.ScreenUpdating = True
     Application.EnableEvents = True

End Sub