Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim sf As Object 'déclare la variable sf (Système de Fichiers)
Dim d As Object 'déclare la variable d (Dossier)
Dim fs As Object 'déclare la variable fs (FichierS)
Dim f As Object 'déclare la variable f (Fichier)
Dim lt As String 'déclare la variable lt (Ligne de Texte)
Dim dest As Range 'déclare la variable dest (cellule de DESTinatiion)
Dim test As Boolean 'déclare la variable test
Dim nv As Byte 'déclare la variable nv (Nombre de test Vrai)
Set o = Sheets("Feuil1") 'définit l'onglet o
Set sf = CreateObject("Scripting.FileSystemObject") 'définit la variable sf
Set d = sf.getfolder("C:\Users\Robert\Desktop") 'définit le dossier d (à adapter à ton cas)
Set fs = d.Files 'définit l'ensemble des fichiers fs du dossier d
For Each f In fs 'boucles sur tous les fichier f de l'ensemble fs
If UCase(Right(f.Name, 3)) = "TXT" Then 'condition 1 : si l'extension du fichier est "txt" ou "TXT"
Open f For Input As #1 ' Ouvre le fichier (extrait de l'aide VBA)
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier (extrait de l'aide VBA)
Line Input #1, lt ' Lit la ligne dans la variable (extrait de l'aide VBA)
If lt Like "*inexistant*" Or test = True Then 'condition 2 : si la ligne contient le mot "inexistant" ou si test est vrai
nv = IIf(nv = 3, 0, nv + 1) 'définit la variable nv (zéro si nv est égal à trois, sinon incrémente nv)
test = IIf(nv = 0, False, True) 'définit la variable test (Faux si nv vaut zéro, sinon Vrai)
If test = True Then 'condition 3 : si test est Vrai
'définit la cellule de destination (A1 si A1 est vide, sinon la première cellule vide de la colonne A)
Set dest = IIf(o.Range("A1").Value = "", o.Range("A1"), o.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
dest.Value = f.Name 'place le nom du fichier dans la colonne A (à supprimer éventuellement)
dest.Offset(0, 1).Value = lt 'lplace la ligne contenant le mot "inexistant" dans la colonne B (à adapter éventuellement)
End If 'fin de la condition 3
End If 'fin de la condition 2
Loop 'continue la boucle (extrait de l'aide VBA)
Close #1 ' Ferme le fichier (extrait de l'aide VBA)
End If 'fin de la condition 1
Next f 'prochain fichier de la boucle
End Sub