Copier / coller avec vba

Bonjour à tous,

J'ai un pgm vba qui me permet d'aller chercher des infos dans un fichier excel et de les coller dans un autre.
Je voudrais que se programme ne me colle que les infos correspondant au n°de semaine rentré dans l'inputbox au tout début de mon pgm car, pour le moment il me colle tout...

Quelqu'un aurait une idée?

Voici le pgm:

Sub Dechet_Finition_Hebdo()

'Identification des chemins et des fichiers

    Dim Chemin As String
    Dim Fichier As String
    Dim Semaine As Long
   
    Chemin = "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier"
   
'demande à l'utilisateur le numéro de semaine, semaine en cours par défaut
    Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
    Fichier = "MC_Shootage.xlsm" '" & Semaine & "

'Transfert des données

    ChDir Chemin
'ouverture du fichier en lecture seule
    Workbooks.Open Filename:=Chemin & "\" & Fichier, UpdateLinks:=0, ReadOnly:=True
   
'recopie l'onglet Synthese dans le fichier destination MC_Commun2.xlsm"
    'Sheets("Synthese" ).Copy Before:=Workbooks("MC_commun2.xlsm" ).Sheets("Donnees" )
     Workbooks("MC_commun2.xlsm" ).Worksheets("Donnees" ).Cells.ClearContents
     Workbooks("MC_Shootage.xlsm" ).Worksheets("Synthese" ).Cells.Copy _
     Workbooks("MC_commun2.xlsm" ).Worksheets("Donnees" ).Range("A1" )
 
'fermeture du fichier source
    Workbooks(Fichier).Close SaveChanges:=False
End Sub

Merci