Copier le contenue d'une cellule dans autre classeur

Bonjour,
J'ai un petit soucis.
J'essaie de faire un code qui copie les valeurs des cellules de Q1 jusqu'à la cellule Q vide qui se trouve dans la feuil1 du classeur TG.xlsm et les colle dans la feuilz du classeur Doc.xlsm à partir de Y2.
J'aimerais copier uniquement les valeurs et pas les formules.

Sub copie ()

Dim I As Integer 
Dim NomFichier As String
Dim j As Integer 

NomFichier = "TG.xlsm"
J = 1
I = 1

Application.ScreenUpdating = False 

Workbooks.open ("D:\users\moi\Desktop\doc\" & NomFichier )

Do While Range("Q1:Q" & j).value  <> ""

Application.WindowState = xlMinimized 
Range ("Q1:Q" & j).select 
Sélection.copy 
Active Windows. ScrollColumn = I
AvtiveWindow.Close 
Range ("Y2:Y" & i).select
ActiveSheet.Paste 
Loop
Next I 
Next j 
End sub 

Seulement la premiere valeur se copie et un message me dit que la taille et la forme des données du presse papier ne correspondent pas à la zone sélectionné.

Quelqu'un pourrait m'aider svp.
Merci