Pb creatObject

Option Explicit

Const ForReading = 1
Const ForWriting = 2

Sub supprimetTexteEndouble()
'necessite d'activer la reference Microsoft Scripting Run Time
'
'source
'http://microsoft.supinfo.com/scripts/14082/
'
Dim objDictionary As Scripting.Dictionary
Dim objFSO As Scripting.FileSystemObject
Dim objFile As Scripting.TextStream
Dim strKey 'As ????????????????
Dim strName As String

Set objDictionary = CreateObject('Scripting.Dictionary')

Set objFSO = CreateObject('Scripting.FileSystemObject')
Set objFile = objFSO.OpenTextFile _
('C:\\Documents and Settings\\michel\\dossier\\general\\excel\\monFichier.txt', ForReading)

Do Until objFile.AtEndOfStream
strName = objFile.ReadLine
If Not objDictionary.Exists(strName) Then objDictionary.Add strName, strName
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile _
('C:\\Documents and Settings\\michel\\dossier\\general\\excel\\monFichier.txt', ForWriting)

For Each strKey In objDictionary.Keys
objFile.WriteLine strKey
Next

objFile.Close
End Sub