Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.file
Dim r As Long
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(NomDossier)
r = 1
For Each Fichier In DossierSource.Files
r = r + 1
Next Fichier
Range("NUMBER").Value = r
Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing
End Sub