Recherche de liaisons

Sub Test()

  Dim Link
  Dim Calc As XlCalculation
  Dim I As Integer
  Dim MySelf As String
  Dim Dependants As String
  
  MySelf = LCase(ThisWorkbook.FullName)
  
  With Application
    Calc = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    With .FileSearch
      .LookIn = ThisWorkbook.Path
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      With .FoundFiles
        For I = 1 To .Count
          If LCase(.Item(I)) <> MySelf Then
            With Workbooks.Open(.Item(I), True)
              If VarType(.LinkSources) <> vbEmpty Then
                For Each Link In .LinkSources(xlExcelLinks)
                  If LCase(Link) = MySelf Then _
                    Dependants = Dependants & '- ' & .FullName & vbLf
                Next Link
              End If
              .Close False
            End With
          End If
        Next I
      End With
    End With
    .Calculation = Calc
    .ScreenUpdating = True
  End With
  
  MsgBox 'Classeurs liés :' & vbLf & vbLf & Dependants
  
End Sub