macro copier coller de fichier actif vers cible

Sub thomas()
Dim u As Integer
Dim o As Integer
Dim fichier As String
Dim feuille As String
fichier = ActiveWorkbook.Name 'donne le nom du fichier actif à la variable fichier
feuille = ActiveSheet.Name 'donne le nom de la feuille active à la variable feuille
u = Workbooks(fichier).Sheets(feuille).Range('D65000').End(xlUp).Row ' u = le numéro de la derniere ligne utilisé de la colonne D
On Error GoTo fin 'si il y a une erreur va à fin:
suite1:
o = Workbooks('Thomas.xls').Sheets(1).Range('A65000').End(xlUp).Row + 1 'o = la ligne qui suit le dernier enregistrement du fichier choisi
  
  Workbooks(fichier).Sheets(feuille).Range('D2:D' & u).Copy _
Destination:=Workbooks('Thomas.xls').Worksheets('Feuil1').Range('A' & o) ' copie la plage D vers A du fichier voulu

Workbooks(fichier).Sheets(feuille).Range('F2:F' & u).Copy _
Destination:=Workbooks('Thomas.xls').Worksheets('Feuil1').Range('B' & o) 'copie F vers B


Exit Sub
suite:
Workbooks.Open FileName:= _
            'D:\\macros\\Thomas.xls' 'ouvre le fichier à cette adresse
GoTo suite1
fin:
If Err.Number = 9 Then GoTo suite 'si le type d'erreur est 9 alors va à suite :
End Sub