Set oFichier = FSO.OpenTextFile(stRep & stFichierSource, ForReading, True)
if not oFichier.AtEndofStream then st = oFichier.ReadAll
if st = "" Then wscript.quit
oFichier.Close
tbLg = Split(st, Chr(10))
For i = 0 To UBound(tbLg) 'parcours les lignes
tb = Split(tbLg(i), Chr(&H1C))
If (UBound(tb) >= 2) Then
stLigne1 = stLigne1 & tb(0) & vbTab
stLigne2 = stLigne2 & tb(2) & vbTab
End If
Next
Set oFichier = FSO.OpenTextFile(stRep2 & stFichierDest, ForWriting, True)
oFichier.WriteLine(stLigne1)
oFichier.WriteLine(stLigne2)
oFichier.Close
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5473&post_id=22468