Copie plage entre classeurs VBA en fonction des semaines

Bonjour tout le monde,

J'ai un problème que je n'arrive pas à résoudre

J'ai 2 fichiers Excel :
- Le premier est un classeur ouvert avec comme indication les numéros de semaine

- Le deuxième est un classeur dont j'aimerais récupérer les résultats toujours avec des numéros de semaine ( le classeur est ouvert avec le code vba )

Ma problématique est la suivante :

J'aimerais avoir 2 input Box qui me demande quelle semaine j'aimerais mettre à jour

Après la macro irait chercher la ou les semaines correspondante et irait copier la plage de cellule

Exemple :

J'ouvre le classeur 1 ensuite j'éxécute la macro il me demande d'ouvrir le fichier concerné (classeur 2) ensuite j'ai une premiére input box qui s'affiche qui me demande "Sélectionnez la première Semaine Sxx " (EX:1) puis une deuxiéme inputbox "Sélectionnez la dernière Semaine Sxx"(EX:2) , il va donc récupérer les résultats de la plage ("D5 : D10") et ("E5 : D10") des semaines 1 et 2 du classeur 2 Feuil 1 pour ensuite les coller dans le classeur 1 Feuil 1

Sub Test()

Dim wbm As Workbook 'pour tt le fichier


Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wsm1 As Worksheet


Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim val1, val2 As Double


année = 2013

Set wbm = ThisWorkbook
Set wsm1 = wbm.Worksheets("Feuil1")



Application.ScreenUpdating = False ' permet de vider la memoire


fichier = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx", , "Sélectionnez tous les fichiers", , True) ' ouvrir un fichier excel


If IsArray(fichier) Then

For cpt = LBound(fichier) To UBound(fichier)

Set nomfich = Application.Workbooks.Open(fichier(cpt))

nom = nomfich.Name

Select Case True

Case nom = "Classeur2.xlsx"

Set wb1 = Workbooks("Classeur2.xlsx")



End Select

Next cpt

End If

x = InputBox("Sélectionnez la première Semaine Sxx", "Choix de la Semaine")

xf = InputBox("Sélectionnez la dernière Semaine Sxx", "Choix de la Semaine")

s = Right(x, 2) ' recupere le resultat a gauche et prend les 2 caracteres ex S34 34

sf = Right(xf, 2)

s = s + 0

sf = sf + 0

For compteur = s To sf ' For <compteur>= départ

semaine = "S" & s

'MAJ Ressources

wbm.Activate

wsm1.Activate

Range("C4").Select

a = Range("C4").Address

b = Range(a).End(xlToRight).Address

Set MaPlage = wsm1.Range(a, b)

MaPlage.Select

Set c = MaPlage.Find(semaine, LookIn:=xlValues, LookAt:=xlWhole) ' find fonction recherche 

Voici un début de code mais aprés je ne sais pas comment m'y prendre

Merci d'avance

Thomas