Garder en mémoire des valeurs numériques d'une boucles for

Bonjour,

Je souhaite extraire des valeurs numériques de mon classeur 2 (allant de la ligne 14 à 67), cependant je ne sais pas comment les extraire de ma boucle afin de les reporter dans un classeur différent (classeur1).

J'utilise également l'outil cells.find pour utiliser l'éditeur de recherche de valeur.

voici mon code afin de mieux comprendre :

 Workbooks("classeur1").Activate
    nom = Worksheets("Résultats").Cells(1, 493).Value
     Workbooks("classeur2.xlsx").Activate

For j = 13 To 66
              Cells.Find(What:=nom, After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False).Activate
            ligne = ActiveCell.Row
            colonne = ActiveCell.Column
            ligne13 = ligne + j
   
            Workbooks("classeur2.xlsx").Activate
            Worksheets("résultats PF").Cells(ligne13, colonne).Select
    
            j = ActiveCell
            'pb : le j renvoi à un nombre ... donc je ne peux pas l'intégrer dans la feuille  d'après...
        Next

 Workbooks("classeur1").Activate
    Worksheets("Résultats").Cells(99, 493).Select
    
    ActiveCell = 13 ' mais ne fonctionne pas car il s'agit d'un format numérique enfin je penses qu'il doit y avoir d'autres erreurs...

....

Et là je ne sais pas comment faire pour sortir de ma boucle chaque valeur allant de la ligne 13 à la ligne 66, car je doit les reporter ensuite sur mon classeur 1.

Est ce que des personnes pourraient m'aider ?

cordialement,

sébastien