Option Explicit
Sub Fichiers_presents_dans_le_repertoire()
Dim objFSO, objDossier, objFichier, Repertoire
Dim Mon_Compteur As Integer, i As Integer
Dim Le_Fichier(1 To 10000) As String
Application.ScreenUpdating = False
On Error Resume Next
Repertoire = "C:\Documents and Settings\Etienne\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Repertoire)
'Conserver les noms des fichiers présents dans le répertoire dans une variable tablo
If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
Mon_Compteur = Mon_Compteur + 1
Le_Fichier(Mon_Compteur) = objFichier.Name
Next
End If
'Dépose le contenu de la variable dans l'onglet Excel
For i = 1 To Mon_Compteur
Cells(i, 1).Value = Le_Fichier(i)
Next i
Set objDossier = Nothing
Set objFSO = Nothing
Erase Le_Fichier
On Error GoTo 0
End Sub