Bonjour,
voici un petit bout de code qui pourrais répondre à ta question.
Sub Recopier()
'
Dim intCompteurBoucle As Integer, intValeurSaisie As Integer
Range("A2").Copy
intValeurSaisie = Range("A2")
For intCompteurBoucle = 0 To intValeurSaisie
ActiveCell.PasteSpecial xlPasteAll
ActiveCell.Offset(1, 0).Select
Next
Application.CutCopyMode = False
End Sub
Cette Macro sera lancée manuellement ou placée sur un bouton
Jeannot