Autres vba copier coller date dans une colonne

[maxim47]

Bonsoir
je cherche à faire un copier coller de certains nombres de dates (qui peuvent varier en nombre) et les coller dans la cellule D1 des feuilles dont le nombre correspond au nombre de dates de la colonnes 10 dates 10 feuilles 30 dates 30 feuilles
J'ai fait cette macro mais je bute sur la façon de compter les dates

Sub majdates()

Sheets("jour 1").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC[-2]"
Range("D2").Select
Sheets("jour 2").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[-2]"
Range("D2").Select
Sheets("jour 3").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[2]C[-2]"
Range("D2").Select
Sheets("jour 4").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[3]C[-2]"
Range("D2").Select
Sheets("jour 5").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[4]C[-2]"
Range("D2").Select
Sheets("jour 6").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[5]C[-2]"
Range("D2").Select
Sheets("jour 7").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[6]C[-2]"
Range("D2").Select
Sheets("jour 8").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[7]C[-2]"
Range("D2").Select
Sheets("jour 9").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[8]C[-2]"
Range("D2").Select
Sheets("jour 10").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[9]C[-2]"
Range("D2").Select
Sheets("jour 11").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[10]C[-2]"
Range("D2").Select
Sheets("cal").Select
End Sub

 

[blord]

Bonjour,
Je n'ai pas compris votre problème mais vous pourriez beaucoup simplifier votre code en faisant ceci :
Sheets("jour 1").Range("D1").FormulaR1C1 = "=Feuil1!RC[-2]"

blord

 

[maxim47]

je joint mon fichier celà sera plus explicite dans la feuil 1 colonne b s'affichent les dates générées par mon calendrier je souhaiterait copier chaque date dans la cellule d1 à partir de la feuil jour1 puis jour 2 sachant que le nombre de jours peut varier et que le nombre de dates = nombre onglets