Recopier cellules x fois vers le bas

Bonjour, je rejoins le forum pour la première fois

J'ai crée une 1ère macro pour venir sélectionner la dernière cellule vide d'une colonne "D" à partir de la cellule "D3" et ça marche

Sub SelectionCelVide()

Sheets("Fichier général").Select

Range("D3").End(xlDown).Offset(1, 0).Select

End Sub

Ensuite j'ai une autre macro qui viens copier un nom d'une autre feuille dans cette cellule. Ca marche bien également

Mon souci c'est la suite : je voudrais que ce nom soit recopier vers le bas 12 fois correspondant au 12 mois de l'année.

dans une colonne "B" j'ai bien les numéro de chaque mois à savoir 1,2,3 ...jusquà 12.

Cette macro me rendrait bien service.

En espérant avoir été suffisamment clair pour que vous puissiez m'aider.

Grand merci

Très CDLT

Bonjour

Ta demande paraît bizarre

Tu veux recopier le nom de ta feuille sur 12 lignes à partir de la première cellule vide de D???

Sub SelectionCelVide()
Sheets("Fichier général").Select
Range("D3").End(xlDown).Offset(1, 0).Select
End Sub
Sub copie()
R = ActiveCell.Row
For i = R To R + 12
    Cells(i, 4) = Sheets(2).Name
Next
End Sub

mais je doute que ce soit cela . Joins peut-être un fichier et explique-toi bien

A bientôt

Merci pour ta réponse mais je n'y arrive pas. Sur ton conseil, je te fais suivre un exemple de mon fichier qui est beaucoup plus important, mais je pense qu'à partir de celui-là tu pourras m'aider et ensuite je n'aurai plus qu'à l'adapter

très cordial remerciement pour ton aide, à 70 ans j'ai encore beaucoup de progrès à faire avec excel.

Rebonjour

Eh oui, moi j'ai 67 ans...

Voici ton fichier modifié, teste la macro

Bon courage

Merci Patty5046

C'est exactement ce que je souhaitais.

Très cordialement à bientôt peut être.

Enchantée que tu aies trouvé ton bonheur.

Peut-être à un prochain post ??

Bonne soirée