Copie de cellule

Bonjour,

je voudrai un code VBA pour copier une cellule x fois et la coller dans une autre ligne en luis ajoutant 1

exemple cellule a8 (qui seras copier) x fois (box) "pedro800"

cellule a9 bedro801

cellule a10 pedro802

cellule a11 pedro803

j'ai trouvé ce code mais qui n'incrémente pas la valeur de 1 pour chaque ligne

Sub test()
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Combien de copies voullez vous", "Kutools for Excel", , , , , , 1)
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

merci pour votre aide

Alain

Edit modo : Mis code avec les balises de code

Bonjour

Merci de bien vouloir utiliser les balises de codes en cliquant sur le bouton </> et en collant vos codes dans la fenêtre.
J'ai corrigé dans votre post initial

Pour votre demande, je ne vois pas trop bien pourquoi vous voulez faire un code parce qu'il vous suffit de cliquez sur le petit carré en bas de la cellule active, puis de tirer vers le bas. Cela fera exactement de que vous demandez

Si vraiment vous voulez un code, essayez comme ceci :

Sub test()
Dim xCount As Integer

xCount = Application.InputBox("Combien de copies voulez-vous", , , , , , , 1)

xCount = ActiveCell.Row + xCount
If xCount > ActiveCell.Row Then
    ActiveCell.AutoFill Destination:=Range("A8:A" & xCount), Type:=xlFillDefault
End If
End Sub

Si ok -->

Cordialement

merci beaucoup cela fonctionne très bien