Macro Répertoire texte

tu peux utiliser le code suivant pour lire ton fichier texte et supprimer ta ligne

Open (sBatch) For Input Access Read Shared As #iFileInput
Open (sNewBatch) For Output As #iFileOuput
Do Until EOF(iFileInput)
Line Input #iFileInput, sLine
if <blabla> then Print #iFileOuput, sLine
Loop

sinon pour parcours ton répertoire essaie l'objet FileSystemObject :

for each fFile in fso.Getfolder(spaht).files
debug.print ffile.path
next

Merci bien pour cette aide