Insertion de lignes

[maqfisto]

Bonjour à tous,

J'ai un fichier de 11000 lignes environ et je souhaiterais insérer une ligne vide entre chaque ligne déjà existantes.
Est ce qu'il existe une manip pour le faire en une fois car me le palucher à la main,je n'ai pas trop envie.

Merci d'avance à tous.

 

[SergiO]

Bonjour maqfisto,

Essaie ce code,je pense qu'on peux mieux faire (je débute en VBA )

Sub Insertion()

Application.ScreenUpdating = False
Range('A1').Select
For n = 1 To 11000 Step 2
Range('A' & n).Select
Selection.EntireRow.Insert
Next n
Application.ScreenUpdating = True

End Sub

@+