Problème de macro de changement de liaisons

[VINCE]

je sollicte encore une fois votre aide car je suis dans une impasse.
En effet, sur un fichier excel j'ai des liens avec d'autres fichiers excel.
je voudrais faire avec une macro l'équivalent que je ferais en manuel a savoir: edition liaison modifier source (selectionner la nouvelle source)ok
ou au loins edition liaison modifier la source choisir parmi une liste le nom de la nouvelle source (présente dans le même répertoire)
En effet le nom du nouveau fichier source change tous le temps; par consequent il faudrait avoir soit :
-une boite de dialogue ou je metterait le nom du nouveau fichier et donc qui metterait directement a jour les liaisons
-une fenêtre (modifier les liaisons) et cliquer sur modifier la source, le fichier correspondant et ok
voilà le soucis

Macro Possible mais ne foctionnant pas:
Sub linkup()
ChDir "emplacement répertoire"
ActiveWorkbook.ChangeLink Name:= _
"chemin fichier source actuel", _
NewName:= _
Nom = InputBox("Donnez un nom de fichier !" & Chr(13) & "Exemple: f12")
If Nom = "" Then
Exit Sub
ActiveWorkbook.UpdateLink Name:= _
"nom du fichier rentré dans l'input box", Type _
:=xlExcelLinks
End Sub