[Excel] Rechercher les bonnes liaisons

Bonjour à tous,

J'ai un fichier Excel avec plusieurs fichiers en liaisons situés dans un répertoire bien distinct.
Voici ma macro :
[CODE]Private Sub Workbook_Open()
Const Rep = "C:\Mon dossier\" ' le répertoire contenant les fichiers..
Dim TheFile As String
Application.DisplayAlerts = False
TheFile = Dir(Rep & "*.xls") 'Listing des fichiers Excel...
While TheFile <> "" 'Tant que non vide
Workbooks.Open (Rep & TheFile) 'Ouverture du fichier
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 'Mise à jour du lien
TheFile = Dir 'Fichier suivant
Wend
Application.DisplayAlerts = True
End Sub
[/CODE]

Elle se lance à chaque fois que j'ouvre mon fichier a actualisé, mais malheureusement ici elle ouvre tous les fichiers du répertoire "C:\Mon dossier\ " or je voudrais qu'elle ouvre seulement les fichiers dont j'ai besoin pour actualisé mon fichier Excel.

Est-ce que c'est possible?