Copier - coller une cellule dans un autre document

Bonjour,

Mon problème est le suivant, j'ai deux types de ficher

1 = Fichiers sources (plus de 2000 fichiers identiques)

2= Fichier Etiquette (1 seul fichier)

J'ai déjà un code VBA qui me permet de copier coller l'information mais sur une autre feuille.

j'aimerais exécuter la macro dans un des fichiers sources pour que les information se colle automatiquement dans le seul fichier Etiquette existant (dans le but d'imprimer par la suite).

J'ai également réalisé le code pour ouvrir mon fichier étiquette, mais je n'arrive pas à faire comprendre à Excel de récupérer mon information dans le fichier source ouvert.

Je ne trouves pas de fonction me permettant de prendre les informations du fichier source ouvert uniquement.

Je vous remercie par avance :)

Private Sub CommandButton1_Click()

Dim Chemin As String, NomFichier As String

Chemin = "C:\Documents and Settings\Administrateur\Bureau\TRADING\"
Nom = "Action.xlsx"
Workbooks.Open Filename:= Chemin & Nom

'Fiche suivi = fichier source 

Sheets("Fiche suivi").Range("B1").Copy
 Sheets("Nom").Range("C6").PasteSpecial Paste:=xlPasteValues

Sheets("Fiche suivi").Range("B2").Copy
 Sheets("Nom").Range("C5").PasteSpecial Paste:=xlPasteValues

Sheets("Fiche suivi").Range("C3").Copy
 Sheets("Nom").Range("C4").PasteSpecial Paste:=xlPasteValues

Dim DL As Long
Dim sup As Integer

DL = Cells(Application.Rows.Count, 2).End(xlUp).Row
Range("A12").Value = Range("B" & DL).Value

DL = Cells(Application.Rows.Count, 3).End(xlUp).Row
Range("A13").Value = Range("C" & DL).Value

sup = Cells(Application.Rows.Count, 4).End(xlUp).Row
For i = sup To 3 Step -1
If Cells(i, 4) > 0 Then
    Range("A14").Value = Cells(i, 4).Value
    Exit For
Else
    Range("A14").Value = "Aucune valeur supérieure à 0"
End If
Next

End sub

Bonsoir LU36550