Copie classeur ferme vers classeur tampon

Bonjour à tous,

je suis débutante en vba et je tourne en rond depuis quelques jours donc je fais de nouveau appel à votre savoir, en espérant que vous pourrez m'aider.

j'ai 6 classeurs différents pour chaque employé (placés dans le meme repertoire) :
BLONDELCL.xls
CASOLACL.xls
MANSIERCL.xls
MOULINECCL.xls
ROYCL.xls
ROSSETTICL.xls

et un classeur tampon ou toutes les données devront etre regroupées :
RECUP.xls

A l'interieur de chaque classeur employé se trouve un onglet BD (onglet sur lequel je dois récuperer les données)

Dans cet onglet BD :
le premier enregistrement débute en cellule A3
le nombre d'enregistrement est appelé à varier il est donc important que ma macro trouve la derniere ligne non vide

je voudrais :
récuperer les données de l'onglet BD dans chaque fichier (A3 à U"...")
les coller les uns à la suite des autres dans mon classeur tampon dans l'onglet bd
je voudais que les classeurs restent fermés pendant la copie et que la manipulation se fasse à l'aide d'un bouton sur l'onglet BD

voici le code engagé :

Sub COPIE_feuille() 

Dim BLONDELCL_source As Workbooks 
Dim CASOLACL_source As Workbooks 
Dim MANSIERCL_source As Workbooks 
Dim MOULINECCL_source As Workbooks 
Dim ROYCL_source As Workbooks 
Dim ROSSETTICL_source As Workbooks 
Dim RECUP_target As Workbooks 
Dim RECUP_feuille As Worksheets 
Dim cellBLO_source_1er As Range 
Dim cellBLO_source_der As Range 
Dim cellCAS_source_1er As Range 
Dim cellCAS_source_der As Range 
Dim cellMAN_source_1er As Range 
Dim cellMAN_source_der As Range 
Dim cellMOU_source_1er As Range 
Dim cellMOU_source_der As Range 
Dim cellROY_source_1er As Range 
Dim cellROY_source_der As Range 
Dim cellROSS_source_1er As Range 
Dim cellROSS_source_der As Range 
Dim cell_target As Range 

Set BLONDELCL_source = Workbooks("A:\Commerciaux\reporting mensuel des commerciaux\Nouveau reporting1\Nouveau REPORTING MENSUEL COMMERCIAUX BLONDEL HUGUES").Worksheets("BD") 
Set CASOLACL_source = Workbooks("A:\Commerciaux\reporting mensuel des commerciaux\Nouveau reporting1\Nouveau REPORTING MENSUEL COMMERCIAUX CASOLA HAROLD").Worksheets("BD") 
Set MANSIERCL_source = Workbooks("A:\Commerciaux\reporting mensuel des commerciaux\Nouveau reporting1\Nouveau REPORTING MENSUEL COMMERCIAUX VALERIE MANSIER").Worksheets("BD") 
Set MOULINECCL_source = Workbooks("A:\Commerciaux\reporting mensuel des commerciaux\Nouveau reporting1\Nouveau REPORTING MENSUEL COMMERCIAUX MOULINEC DAN").Worksheets("BD") 
Set ROYCL_source = Workbooks("A:\Commerciaux\reporting mensuel des commerciaux\Nouveau reporting1\Nouveau REPORTING MENSUEL COMMERCIAUX ROY KARINE").Worksheets("BD") 
Set ROSSETTICL_source = Workbooks("A:\Commerciaux\reporting mensuel des commerciaux\Nouveau reporting1\Nouveau REPORTING MENSUEL COMMERCIAUX ROSSETTI NICOLE").Worksheets("BD") 

Set RECUP_target = Worksheets("BD") 
Set cellBLO_source_1er = BLONDELCL_source("A3").Range 
Set cellBLO_source_der = cellBLO_source_1er.End(xlDown) 
Set cellCAS_source_1er = CASOLACL_source("A3").Range 
Set cellCAS_source_der = cellCAS_source_1er.End(xlDown) 
Set cellMAN_source_1er = MANSIERCL_source("A3").Range 
Set cellMAN_source_der = cellMAN_source_1er.End(xlDown) 
Set cellMOU_source_1er = MOULINECCL_source("A3").Range 
Set cellMOU_source_der = cellMOU_source_1er.End(xlDown) 
Set cellROY_source_1er = ROYCL_source("A3").Range 
Set cellROY_source_der = cellROY_source_1er.End(xlDown) 
Set cellROSS_source_1er = ROSSETTICL_source("A3").Range 
Set cellROSS_source_der = cellROSS_source_1er.End(xlDown) 
Set cell_target = RECUP_feuille.Range("A3").End(xlDown).Row + 1 


BLONDELCL_source.Range(cellBLO_source_1er, cellBLO_source_der).Copy cell_target 
CASOLACL_source.Range(cellCAS_source_1er, cellCAS_source_der).Copy cell_target 
MANSIERCL_source.Range(cellMAN_source_1er, cellMAN_source_der).Copy cell_target 
MOULINECCL_source.Range(cellMOU_source_1er, cellMOU_source_der).Copy cell_target 
ROYCL_source.Range(cellROY_source_1er, cellROY_source_der).Copy cell_target 
ROSSETTICL_source.Range(cellROSS_source_1er, cellROSS_source_der).Copy cell_target 

End Sub 

Désolé pour le code surement grossier ....
Merci par avance pour votre aide