Sub AnalyseFichiers()
On Error GoTo Fin
Dim N As Integer, Dossier As String
Application.ScreenUpdating = False
Range("B4:B65000").ClearContents
N = 4 ' 1ere ligne écriture
Dossier = Range("B2")
If Right(Dossier, 1) <> "\" Then Dossier = Dossier & "\"
Application.FileDialog(msoFileDialogOpen).InitialFileName = Dossier
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.getfolder(Dossier)
Set fichiers = f.Files ' Récupère tous les fichiers
For Each f In fichiers ' Pour chaque fichier trouvé
ActiveSheet.Hyperlinks.Add Anchor:=Cells(N, 2), Address:= _
Dossier & f.Name, TextToDisplay:=f.Name ' Insertion nom fichier en lien hypertexte ( Col Fichier )
N = N + 1 ' On prépare l'index pour la igne suivante
Next
Fin:
End Sub