Recopier x cellule dans une colonne

Bonjour a vous deux

sans boucle:
A adapter avec vos variables ligne et colonne

Sub recopie()
    Worksheets("feuil1").Range(Cells(9, 11), Cells(9, 11).Offset(12, 0)) = "azerty"
End Sub

Pourquoi deux macros ??

Désolé, mais la macro de f894009 ne fonctionne pas, il recopie la dernière cellule qu'une seule fois.
Merci tout de même pour le dérangement

Bonjour,
Le code marche, c'est un exemple. Il faut l'adapter à votre contexte. À défaut, mettez un fichier à dispo

Bonsoir Kuartz
Je suis désolé, mais je n'arrive toujours pas à recopier ma dernière cellule. Je commets surement une erreur dans la macro que je te livre ci-dessous
Sub Recopie() 'pour recopier une cellule 12 fois vers le bas
Sheets("Fichier général").Select
Range("c3").End(xlDown).Select

Dim Nom As String

For i = LaLigneDeLaPremiereCelluleDeCopie To LaLigneDeLaPremiereCelluleDeCopie + 11

Range("C" & i).Value = Nom 'C à remplacer par la colonne

Next i
Voici le résultat que j'obtiens
Col"C" Col"D"
Roy Hubert
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Fichier général
Je peux t'envoyer un fichier si tu le veux, mais je ne connais pas la procédure.
Merci de ton soutien précieux.

Bonjour tout le monde,

un fichier avec le code que j'ai propose: https://mon-partage.fr/f/EnIpwOg6/
ici le nombre de cellule est fixe, mais ca marche

merci Patrice33470, ta macro marche super bien. Si je n'abuse pas, pourrais tu l'adapter pour que je puisse recopier 12 fois un nombre fixe de colonne. A savoir au lieu de recopier uniquement la colonne C, je voudrais pouvoir recopier de la colonne "C" à la colonne "O" et toujours 12 fois.
Sans quoi, dois je remplacer tous les "c" de la macro par D et ainsi de suite. Je suis sur que tu as une autre proposition à me faire.
Je te remercie très sincèrement et cordialement

Bonjour,

Pour copier les valeurs des colonnes C à O :

Option Explicit
Sub Recopie()
Dim c As Range
Dim i As Integer
  Set c = Worksheets("Fichier général").Range("C3").End(xlDown)
  For i = 1 To 12
    Set c = c.Offset(1)
    c.Resize(1, 13).Value = c.Resize(1, 13).Offset(-1).Value
  Next i
  c.Activate  'Si besoin
End Sub

Et si il y a des formules (à tirer) :

Option Explicit
Sub Recopie()
Dim c As Range
Dim i As Integer
Dim j As Integer
  Set c = Worksheets("Fichier général").Range("C3").End(xlDown)
  For i = 1 To 12
    Set c = c.Offset(1)
    For j = 0 To 12
      c.Offset(0, j).FormulaR1C1 = c.Offset(0, j).Offset(-1).FormulaR1C1
    Next j
  Next i
  c.Activate  'Si besoin
End Sub

Un super grand merci Patrice33740, tu as répondu complètement à ma demande. Et je considère donc mon problème comme résolu. Merci à tous ceux qui ont pris du temps pour d'aider.
Bon WE à tous et à bientôt peut-être, enfin le moins possible pour ne pas toujours vous déranger. D'ailleurs je viens d'acheter VBA pour les nuls afin de me perfectionner un plus.
CDLT

Bonjour

Je te conseille vivement ce cours pour débutants, gratuit et très complet :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf

Cordialement
Patrice