Insertion automatique de lignes + recopie valeur cellule

Bonjour!

J'ai un fichier avec quelques valeurs en colonne A.

J'aimerais réussir à insérer 2, voir 3 lignes (ou plus d'ailleurs si qqun sait comment automatiser cette valeur je suis preneur ). ET que pour chaque nouvelle ligne créée, le contenu inital de la cellule soit recopié.

J'ai déjà essayé quelques chose dans le fichier ci-joint, mais ma macro n'est pas terrible, ça ne fonctionne pas pour la dernière valeur... Voici le code que j'ai testé:

Sub insertion()
 nb= Range("A65536").End(xlUp).Row
 For x = nb To 2 Step -1
 Cells(x, 1).Select
 ActiveCell.EntireRow.Insert 'rajout 1 ligne vide
 ActiveCell.EntireRow.Insert 'rajout 1 ligne vide
 Cells(x, 1).FillDown
 Cells(x + 1, 1).FillDown
 Next
End Sub

Merci d'avance pour votre aide

J'ai pas compris mais essaie comme ca

Sub insertion()
 nb = Range("A65536").End(xlUp).Row + 1
 For x = nb To 3 Step -1
 Cells(x, 1).Select
 ActiveCell.EntireRow.Insert 'rajout 1 ligne vide
 ActiveCell.EntireRow.Insert 'rajout 1 ligne vide
 Cells(x, 1).FillDown
 Cells(x + 1, 1).FillDown
 Next
End Sub

Bonjour

Merci pour ta réponse, mais maintenant c'est pour la première valeur que ça ne fonctionne plus...

Surement pas très claire ma demande en effet...

Donc je veux insérer 2 lignes par exemple en dessous de chaque valeur de la colonne, et que pour chaque nouvelle ligne créée, il me recopie la valeur du dessus.

Voilà voilà...

merci d'avance

et comme ca?

Sub insertion()
 nb = Range("A65536").End(xlUp).Row + 1
 For x = nb To 2 Step -1
 Cells(x, 1).Select
 ActiveCell.EntireRow.Insert 'rajout 1 ligne vide
 ActiveCell.EntireRow.Insert 'rajout 1 ligne vide
 Cells(x, 1).FillDown
 Cells(x + 1, 1).FillDown
 Next
End Sub

ma première proposition me donne exactement le resutat souhaité dans la colonne A ( exactement ce que tu vois sous la colonne C résultat)

Ah yes nickel!!

Merci!