Copier un tableau dans un autre

Bonjour,

Dans le cadr d'une macro excel, je veux recopier les données figurant sur le fichier excel "clas1.xls" dals la seconde feuille du fichier "clas2.xls" sachant que les tableux sont de taille (2000,18)...voila le code que j'ai écrit :

Sub ImportDonnees()


Workbooks.Open ("Q:\doc1\doc2\Clas1.xls")

Set Depart = Workbooks("Classeur1.xls")
Set Destination = Workbooks("Clas2.xls")

Set F_dep = Depart.Sheets(1)
Set F_des = Destination.Sheets(2)


i = 1
j = 1

While j < 18
While i < 2000
F_dep.Select
Selection.Cells(i, j).Copy

F_des.Select
Selection.Cells(i, j).Past

j = j + 1
Wend
i = i + 1
Wend

End Sub

Merci

Cyrano