Suppression des liaisons avec classeurs précédents lors de compilation

Bonjour,

J'ai créé cette macro pour supprimer les liens avec les classeurs qui sont copiés dans le fichier unique.

Cependant elle ne fonctionne plus et je n'arrive pas à la faire fonctionner

Pourriez vous svp m'aider

Merci

Sub BreakLinks()
Dim astrLinks As Variant
Dim iCtr As Long
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsArray(astrLinks) Then
For iCtr = LBound(astrLinks) To UBound(astrLinks)
ActiveWorkbook.BreakLink Name:=astrLinks(iCtr), _
Type:=xlLinkTypeExcelLinks
Next iCtr
End If
End Sub