RechercheV sur 2 fichiers

Bonjour,

    
sub test()

For i = 1 To 50
    
        Cells(i, 1).Activate
    
        ActiveCell.FormulaR1C1 = "=VLOOKUP(cells(i,col_app_ten),'[Fichier]Feuil1'!C1:C5,5,FALSE)"
        
    Next i

end sub

J'ai mis ci-dessus mon code qui pose problème que je mets dans une macro dans un fichier source. J'ai un autre fichier qui s'appelle base et qui sert à la rechercheV.
il me demande de choisir le fichier ("fenêtre ouvrir") à chaque changement sur la boucle "for i". Le fichier est déjà ouvert mais il semble ne pas le reconnaitre.

Merci pour votre aide