Sub List_Fichiers()
Dim Fichiers_Repertoire(10000, 1)
Dim Fichier As String
Dim Nb_Fichiers As Long
With Sheets("Feuil1")
.Range("a2:a20000").ClearContents
Fichier = Dir$("E:\MARS\" & "*.doc")
Do While Fichier <> ""
Fichiers_Repertoire(Nb_Fichiers, 0) = Fichier
Fichier = Dir$
Nb_Fichiers = Nb_Fichiers + 1
Loop
Nb_Fichiers = 0
While Fichiers_Repertoire(Nb_Fichiers, 0) <> nom_rep
.Range("a2").Offset(Nb_Fichiers, 0).Value = Fichiers_Repertoire(Nb_Fichiers, 0)
'.Range("c2").Offset(Nb_Fichiers, 0).Value = 'date de modification
Nb_Fichiers = Nb_Fichiers + 1
Wend
.Range("a:c").Columns.AutoFit
End With
End Sub