Liaisons à vérifier par VBA

sub test()
  dim L,i&
   L = ThisWorkbook.LinkSources
      for i = 1 to ubound(L)
           msgbox L(i)
      next i
end sub

Sub Liens()
Dim w As Worksheet, c As Range, n&, a$(), L, i&, d As Object, wb As Workbook
'---liste des formules de liaison---
For Each w In ThisWorkbook.Worksheets
  For Each c In w.UsedRange
    If c.HasFormula Then
      If InStr(c.Formula, "[") Then
        n = n + 1
        ReDim Preserve a(1 To 2, 1 To n)
        a(1, n) = c.FormulaR1C1
      End If
    End If
  Next
Next
'---ouverture des fichiers sources---
Application.ScreenUpdating = False
L = ThisWorkbook.LinkSources
For i = 1 To UBound(L)
  On Error Resume Next
  Workbooks.Open(L(i))
  If Err Then MsgBox "'" & L(i) & "' introuvable..."
  On Error GoTo 0
Next
'---nouvelle liste des formules de liaison---
n = 0
For Each w In ThisWorkbook.Worksheets
  For Each c In w.UsedRange
    If c.HasFormula Then
      If InStr(c.Formula, "[") Then
        n = n + 1
        a(2, n) = c.FormulaR1C1
      End If
    End If
  Next
Next
'---restitution dans un nouveau document---
Set w = Workbooks.Add.Sheets(1)
w.[A:B].NumberFormat = "@" 'format Texte
w.[A1:B1].Font.Bold = True
w.[A1] = "Formule avant ouverture"
w.[B1] = "Formule après ouverture"
i = 2
Set d = CreateObject("Scripting.Dictionary")
For n = 1 To n
  If Not d.exists(a(1, n)) Then 'évite les doublons
    d(a(1, n)) = ""
    If InStr(a(2, n), "]#REF") Then
      w.Cells(i, 1) = a(1, n)
      w.Cells(i, 2) = a(2, n)
      i = i + 1
    End If
  End If
Next
w.Columns.AutoFit
'---fermeture des fichiers---
For Each wb In Workbooks
  If wb.Name <> w.Parent.Name And wb.Name <> ThisWorkbook.Name _
    Then wb.Close False
Next
ThisWorkbook.Close False 'on le ferme aussi...
End Sub

Sub Liens()
Dim lig&, d As Object, w As Worksheet, c As Range, t$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Workbooks.Add.Sheets(1) 'nouveau document
  .[A:A].NumberFormat = "@" 'format Texte
  .[A1].Font.Bold = True
  .[A1] = "Formules (R1C1) de liaison donnant une valeur d'erreur"
  lig = 2
  Set d = CreateObject("Scripting.Dictionary")
  For Each w In ThisWorkbook.Worksheets
    For Each c In w.UsedRange
      If c.HasFormula Then
        If InStr(c.Formula, "[") Then
          t = c.FormulaR1C1
          If Not d.exists(t) Then 'évite les doublons
            d(t) = ""
            If IsError(ExecuteExcel4Macro(Mid(t, 2))) Then
              .Cells(lig, 1) = t
              lig = lig + 1
            End If
          End If
        End If
      End If
    Next
  Next
  .Columns(1).AutoFit
End With
End Sub

Sub Liens()
Dim lig&, d As Object, w As Worksheet, P As Range, tablo, t
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Workbooks.Add.Sheets(1) 'nouveau document
  .[A:A].NumberFormat = "@" 'format Texte
  .[A1].Font.Bold = True
  .[A1] = "Formules (R1C1) de liaison donnant une valeur d'erreur"
  lig = 2
  Set d = CreateObject("Scripting.Dictionary")
  For Each w In ThisWorkbook.Worksheets
    Set P = w.UsedRange
    tablo = Union(P, P(2)).FormulaR1C1 'au moins 2 éléments
    For Each t In tablo
      If Left(t, 1) = "=" Then
        If InStr(t, "[") Then
          If Not d.exists(t) Then 'évite les doublons
            d(t) = ""
            If IsError(ExecuteExcel4Macro(Mid(t, 2))) Then
              .Cells(lig, 1) = t
              lig = lig + 1
            End If
          End If
        End If
      End If
    Next
  Next
  .Columns(1).AutoFit
End With
End Sub