macro rompre les liaisons

Bonjour,
😕J’ai crée une macro qui permet de rompre les liaisons, le problème c’est que cette macro marche qu’avec les liaisons de fichiers désignés lors de la création de la macro (nom, chemin). Ce que j’aimerai c’est d’avoir une macro qui puisse marcher avec n’importe quel fichier.
Je ne sais pas si mes explications sont assez claires.

Sub enregistrerSous2003()
'

ActiveWorkbook.BreakLink Name:="C:\A_FAIRE\fichier2.xls", Type:= _
xlExcelLinks
ActiveWorkbook.BreakLink Name:="C:\A_FAIRE\fichier1.xls", Type:= _
xlExcelLinks
End Sub


Merci