Copier / Coller jusquà "N" fois

Bonjour a tous,

Je voudrais copier/coller des cellule sur une ligne jusqu'a N Fois avec "N" une variable que je peux entrer dans une cellule particulière.

C'est a dire, j'ai une cellule A2 à copier coller jusqu'a A7, tout en sachant que j'ai entrer le chiffre 6 dans la cellule A1.

Merci pour votre aide.

Re,

Tu peux tester un code du genre ...

Sub CopierNfois()
    Range("A2").Copy Destination:=Range("A3:A" & Range("A1").Value + 1)
End Sub

En espèrant que cela t'aide ...

Oui ca marche , Trés bien ,

Mais c'est moi qui me suis mal exprimé,

Je voulais coller jusquà H1 (Sous forme de ligne pas en colonne)

Merci pour votre aide si précieuse, si vous pouvez juste rectifier en ligne SVP

Re,

Je voulais coller jusquà H1 (Sous forme de ligne pas en colonne)

D'accord ...

Mais copier quelle cellule ... et de quelle cellule à quelle cellule ...

Je voulais copier la cellule A2 jusqu'a H2.

C'est a dire dans A1 il le chiffre 7 saisie au préalable.

Merci pour ta clarification ...

A tester :

Sub CopierNfois()
    Range("A2").Copy Destination:=Range(Cells(2, 2), Cells(2, Range("A1").Value + 1))
End Sub

En espèrant que cela te convienne ...

Bonjour le forum,

B2 :

=SI(COLONNE()-1<=$A$1;A2;"")

A tirer vers la droite.

Merci beaucoup.

Cela me sauve la vie.

Content que cela ait pu t'aider ...

Merci ... pour tes remerciements ...