Insérer des lignes

Salut Claude, le Forum

En partant du Principe que des 10000 Lignes partent de La Ligne 1 à la Ligne 10000 et que tu veux une insertion de ligne vide à partir de la Ligne 2...

Essaies ceci (Faut un certain temps selon la Machine et le Processeur)

Sub InsertLigne1sur2()
Dim X As Integer
For X = 2 To 20000 Step 2 '<<<< 20000 car la plage va s'allonger en cours de boucle...
Rows(X).Insert Shift:=xlDown
Next X
End Sub

NB Fais toujours une copie de Back-Up de tes données avant de faire tourner ce genre de codes

Sinon regarde ce Fil : Lien supprimé

Bon Dimanche
@+Thierry