Insertion 1 ligne sur 2 avec recopie contenue

[Jojo]

Bonjour,

je voudrais créer une macro (voire 2) qui me permettrai inserer 1 ligne sur 2 puis ensuite déplacer le contenu de la cellule B1 en A2 et tous ça sur une séléction d'environ 40000 lignes

Auriez-vous une idée?

Merci de votre aide

 

[SergiO]

Bonjour jojo,

Essaie avec ce code :

Sub Insertion()

Application.ScreenUpdating = False
Range('A1').Select
For n = 2 To 40000 Step 2
Range('A' & n).Select
Selection.EntireRow.Insert
ActiveCell.Value = ActiveCell.Offset(-1, 1).Value

Next n
Application.ScreenUpdating = True

End Sub