Sub test()
Dim NomDoss As String, NomFGén As String, i As Long, _
FSO As New FileSystemObject, Dossier As Folder, Fichier As File
NomDoss = "S:\Arc\" & 2015 & "\" & "11_nov"
NomFGén = "ENE_BLI_MOY_10_MIN_201511*.*"
i = 1
On Error Resume Next
Set Dossier = FSO.GetFolder(NomDoss)
If Err Then MsgBox "Impossible d'accéder au dossier """ & _
NomDoss & """.", vbCritical, "test": Exit Sub
On Error GoTo 0
For Each Fichier In Dossier.Files
If Fichier.Name Like NomFGén Then
i = i + 1
Cells(i, 1) = Dossier.Name
Cells(i, 2) = Fichier.Name
End If
Next Fichier
End Sub