insertion ligne et recopie

Bonjour,
Je peut au moins résoudre une parie de ton problème
Voici une macro dans un premier temp qui insère une ligne sur deux.
(à copier dans un module)

Sub InsererLignes()

Application.ScreenUpdating = False
Dim LigneDebut As Long, LigneFin As Long
Dim Ligne As Long
Dim Pas As Long
LigneDebut = 1
LigneFin = 100
Pas = 1
Ligne = LigneDebut + 1
Do While Ligne <= LigneFin
Rows(Ligne & ":" & Ligne + Pas - 1).Insert shift:=xlDown
Ligne = Ligne + Pas + 1
LigneFin = LigneFin + Pas
Loop
Application.ScreenUpdating = True
End Sub