Sub Liste_Fichiers_Inputbox_Ext_DossierEnCours()
'http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/liste-fichiers-repertoire-sujet_57846_1.htm
'ChDir "C:\...Mon chemin....\Mes documents"
'Range("2:1000").Clear
Dim i As Integer, z As String
Sheets.Add
'Range(Cells(2, 1), Cells(65536, 1)).Clear
Ext = InputBox("Extension de fichiers à touver ?")
'ChDrive Left(Cells(1, 2), 1)
ChDrive Left(ThisWorkbook.Path, 1)
'ChDir Cells(1, 2).Value
ChDir ThisWorkbook.Path
i = 1
'z = Dir("*.txt", 1)
z = Dir("*." & Ext, 1)
While z <> ""
If z <> ActiveWorkbook.Name Then ActiveSheet.Cells(i + 1, 1).Value = z: i = i + 1
z = Dir
Wend
End Sub