Enregistrement pour un script autocad

Bonjour
j'ai cree une macro pour faire un script sous autocad 2006.
on prend les donées de la feuille 1 puis copie feuille 2 et tri
Ensuite on enregistre au format texteunicod donc normalement que le texte.Le probleme lors de l'enregistement il crée des '' au debut et en fin de ligne donc probleme sous autocad
Comment faire pour envite les '' en debut de ligne
ou comment enregistre la feuille dans un fiche texte sans ajout de ''



Ci-joint la Macro
Sub inserer()
'
' inserer Macro
' Macro enregistrée le 13/12/2005 par chandeze-chr
'

'
Cells.Select
Selection.Copy
Sheets('test').Select
Range('A1').Select
ActiveSheet.Paste
Columns('A😀').Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('B2').Select
Columns('A😀').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
'I1:I2'), CopyToRange:=Range('K1'), Unique:=False
ActiveWindow.ScrollColumn = 4
Columns('M:M').Select
Selection.Replace What:='£', Replacement:='Inserer', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Copy
Sheets('Mise en forme').Select
Range('A1').Select
ActiveSheet.Paste
Rows('1:1').Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range('A1').Select
ActiveWorkbook.SaveAs FileName:= _
'C:\\Donnees\\test.scr', _
FileFormat:=xlUnicodeText, CreateBackup:=False
'3lignes pour lancer l'application DDE
Dim MyAppID
'MyAppID = Shell('C😛rogram FilesAutodesk Map 5 - Fraacad.exe', 1) ' Exécute Autocad2000
MyAppID = Shell('C:\\Program Files\\AutoCAD 2006\\acad.exe /b C:\\Donnees\\test.scr', 1) ' Exécute AutocadLT
End Sub