Lien hypertexte automatique

Salut a tous,

Je réalise en ce moment un code VBA qui puissent rechercher tout les fichier excel présent dans un répertoire , a partir de ces fichiers il me crée dans la colonne A un lien hypertexte pour chaque fichier présent dans le répertoire , j'ai cree la fonction mais je bloque au niveaux des boucles je n'arrive pas a programmer le code , si quelqu’un pouvez m'aidez merci .

voici mon debut de code :

Sub lien()

Set Fichier = Application.FileSearch

With Fichier
    .LookIn = "C:\" 'Dossier dans lequel chercher les fichiers
    .Filename = "*.xls" 'Extension des fichiers a trouver
    If .Execute > 0 Then 'S'il en trouve

    ActiveSheet.Hyperlinks.Add Anchor:=selection, Address:= _
        "", TextToDisplay:=""

End Sub

Re-bonjour a tous ,

J'ai résolus mon problème je poste le code pour aidez les autres.

Sub lien()

Dim Répertoire As String
Dim A As Integer, Fichier As String

'Variables à définir :
Répertoire = "C:\Documents and Settings\805901\Bureau\"
Fichier = Dir(Répertoire & "*.xls*")

Application.ScreenUpdating = False
Application.EnableEvents = False
Do While Fichier <> ""
    A = A + 1
    With Worksheets("Feuil1") 'Nom Feuille à adapter
       With Range("A" & A)
           .Hyperlinks.Add Anchor:=.Item(1, 1).Cells, _
            Address:=Répertoire & Fichier, _
            TextToDisplay:=Fichier, _
            ScreenTip:=Répertoire & Fichier
        End With
    End With
    Fichier = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub