Macro excel à l'aide

Bonjour,
J’ai un fichier excel nommé « Récapitulatif Clients Lesquin » reprenant dans la colonne A mes clients. J’ai également dans le même répertoire
1000 fichiers excel, 1 par client avec plus de détails nommés de 1.xls à 1000.xls. Sur ces 1000 fichiers n’apparaît pas le nom du client, je voudrais donc
Que la cellule B1 de ceux-ci soient = à la cellule A1 de mon fichier « Récapitulatif Clients Lesquin » correspondant au nom du client et ce ligne après ligne.
J’ai donc créé cette macro que ne me marque pas plante pas mais m’inscrit ####NOM dans la cellule B1 au lieu du nom :

J’ai concaténés 2 éléments, le premier (Range("K" & i).Select) qui fonctionne bien et passe au lien suivant, par contre il doit y avoir une erreur au second (R&iC1) ce qui m’affiche ####NOM :

Sub COPIERNOM()
'
' COPIERNOM Macro
' Macro enregistrée le 14/01/2010 par
'
' Touche de raccourci du clavier: Ctrl+Maj+A
'
For i = 7 To 1006
Range("K" & i).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"='[Récapitulatif Clients Lesquin.xls]RECAPITULATIF'R&iC1"
Range("A1:A2").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1:O2").Select
Next i
End Sub

Merci de m’aider,

Configuration: Windows XP Internet Explorer 7.0