XL 2016 Ouvrir tous les fichiers en liens

Sub Ouvrir_Liens()
    Call Ouvrir_Liens_Classeur(ThisWorkbook)
End Sub

Sub Ouvrir_Liens_Classeur(WB As Workbook)
    Dim aLinks As Variant
    Dim WB2 As Workbook
    Dim i As Integer
    
    aLinks = WB.LinkSources
    If Not IsEmpty(aLinks) Then
        For i = 1 To UBound(aLinks)
            Workbooks.Open aLinks(i)
            Set WB2 = ActiveWorkbook
            Call Ouvrir_Liens_Classeur(WB2)
        Next i
    End If
End Sub

Sub Ouvrir_Liens()
    Call Ouvrir_Liens_Classeur(ThisWorkbook)
End Sub

Sub Ouvrir_Liens_Classeur(WB As Workbook)
    Dim aLinks As Variant
    Dim i As Integer
    Dim j As Integer
  
    aLinks = WB.LinkSources
    If Not IsEmpty(aLinks) Then
        For i = 1 To UBound(aLinks)
            For j = 1 To Application.Workbooks.Count
                If Application.Workbooks(j).FullName = aLinks(i) Then Exit For
            Next j
          
            If j > Application.Workbooks.Count Then
                Workbooks.Open aLinks(i)
                Call Ouvrir_Liens_Classeur(ActiveWorkbook)
            End If
        Next i
    End If
End Sub