Planning Macro besoin d'aide

[Yohan05]

Bonjour à tous,

J'ai besoin d'aide sur un projet de planning centralisé.
Voici mon problème (valable pour une année):

• Un classeur commande en A1 "le nom" en C1 "la date" (jour/mois)

• Un classeur planning en colonne B1 "les date ordre croissant" différent onglets qui représentent les mois

L'objectif est de copier la cellule A1 et de recopier dans le classeur planning en concordance de la bonne date dans les colonnes C,D,E,F...K

Voici le début de ma macro pouvez-vous m'aider...
Sub macrost()
'
'mod i,j,k,y,z
y = Sheets("Feuil1").Range("b1").Value
k = Sheets("Feuil1").Range("c1").Value
i = Range("A1").Value
If i = 1 Then
Workbooks.Open Filename:="F:\Planning.xlsx", UpdateLinks:=0
Sheets("Decembre2009").Select

Else
If i = 2 Then
Sheets("2").Select
Else
Sheets("3").Select
End If
End If
Range("b1").Select
j = 1
For j = 1 To 31

If j = y Then
ActiveCell.Offset(0, 1).Select
j = 32

Else: ActiveCell.Offset(1, 0).Select
End If
Next j

Z = 1
For Z = 1 To 5
If ActiveCell.Value = "" Then
ActiveCell.Value = k
Z = 6
Else: ActiveCell.Offset(0, 1).Select

End If

Next Z
Windows("Planning.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Merci