Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim i As Integer, x As Integer
Chemin = ThisWorkbook.Path & '\\'
Set Dossier = CreateObject('Scripting.FileSystemObject').GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) = 'txt' Then
i = 0
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, infosLigne
i = i + 1
If infosLigne Like '*motTest*' Then
ListBox1.AddItem Fichier
ListBox1.List(x, 1) = i: x = x + 1:
End If
Loop
Close #1
End If
Next Fichier