Macro excel

bonjour,

j'ai un souci en macro EXCEL (2000).
Je voudrais depuis un fichier texte remplir une table excel
-desactiver l'affichage
-ouvrir le fichier texte dans un worksheet temporaire
-pout toute ligne
--copier la selection range ((n° de ligne,1),(n°ligne,50))
--selectionner le workbook destination
--paste la selection
-fin de boucle
-fermer le wworksheet temporaire
-sauver le fichier
-et le sauver une deuxieme fois sous un autre nom
-reactiver l'affichage.
-le fermer

-------------------------

j'ai essayé ça :

Sub test_remplir_depuis_fichier_texte()
Shell ("c:\toto.bat")
'effacer le fichier d'archive precedent
Application.ScreenUpdating = False
'bloquer l'ecran
For i = 3 To 30
Workbooks.OpenText Filename:="c:\toto.txt", consecutivedelimiter:=False, Space:=False, tab:=True _
, semicolon:=False, comma:=False, other:=False, DataType:=xlDelimited, textqualifier:=xlTextQualifierDoubleQuote
Workbooks("toto.txt").Activate
Selection.Range("A1:Z10").Copy
Workbooks("titi2.xls").Activate
ActiveSheet.Paste Destination:=ActiveSheet.Range("A1:Z10")
Next i
Workbooks("toto.txt").Close
'faire un copier coller entre le fichier texte et le fichier kro$oftExcel
ActiveWorkbook.SaveAs ("sauvegarde.xls"), CreateBackup = False
'faire la double sauvegarde 1 archive plus le fichier de base
ActiveWorkbook.Save
ActiveWorkbook.Close
'Application.ScreenUpdating = True
End Sub

-----------------------------------

Seulement voilà, les copier/coller entre les deux tables excel ne se font pas.

vous pouvez m'aider svp ?