XL 2010 Ajout supression ligne dans fichiers TXT

Sub Traitement()

Dim Fichier As Object
Dim Chemin As String, T As String
Dim TSource As String, TCible As String
Dim Compteur As Long

  'A adapter...
  Chemin = "D:\Public\Documents\test txt\"
 

  'Traitement
  With CreateObject("Scripting.FileSystemObject")
  For Each Fichier In .GetFolder(Chemin).Files
  If Fichier.Name Like "*.txt" Then
  Compteur = Compteur + 1
  'Ouvre le fichier texte et mémorise le contenu
  With .OpenTextFile(Chemin & Fichier.Name, 1)
  T = .readall
  .Close
  End With

  'Traite le contenu
  'If....
  'Crée le fichier texte modifié

  With .CreateTextFile(Chemin & "OK " & Fichier.Name, True)
  .WriteLine T
  .Close
  End With
  End If
  Next Fichier
  End With
  MsgBox Compteur & " fichiers traités."
End Sub