Transfert donnée avec macro

Bonjour
Voilas
Donner à transferer par macro C2 à H9 feuille SAISIE en fonction de la semaine choisie en A12 de la feuille TCD qui iront se mettre en D2:I9 feuille TCD
ex Si semaine S04 choisie les données à transferer seront
C26 à H33 sur feuille TCD D2:I9
Si c'est clair pour vous
Ci joint fichier
merci
Cijoint.fr - Service gratuit de dépôt de fichiers

http://www.cijoint.fr/cjlink.php?fil...cijRD8dc7q.xls

Slt, JIPE59552
Une idée comme une autre à mettre dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub copie() Dim c As Range, i As Long, j As Long Dim plage As Range   Set plage = Sheets("SAISIE").Range("A1" & ":A" & Range("A65536").End(xlUp).Row)   i = 2   With Sheets("SAISIE") For Each c In plage If c.Value = Sheets("TCD").Range("A12").Value Then j = c.Row .Range("C" & j & ":H" & j).Copy Sheets("TCD").Range("D" & i) i = i + 1 End If Next c End With   End Sub

---