insertion ligne et recopie

[marin]

bonjour à tous,

J'ai un p'tit pb que je n'arrive pas à résoudre... ( il paraitra pourtant très simple à la plupart d'entre vous!!). Voila j'ai un fichier avec des lignes de données. Chaque ligne est différente, je voudrais en fait qu'excel me dedouble chaque ligne ? si quelqu'un peut me depanner !! merci d'avance

 

[Virginie©]

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