Intercaler des lignes

[Laurent]

Voici mon problème!

Classeur avec X milliers de lignes.
J'ai besoin d'intercaler (insérer) une ligne vierge entre chaque ligne déjà remplie.

Existe-t-il une solution automatisable?

Par avance merci

 

[Bernard_XLD]

Bonjour Laurent

vite fait, agit sur la feuille active avec un test sur colonne A

Sub essai()
Application.ScreenUpdating = False
Dim Compteur As Long
For Compteur = Range('A65536').End(xlUp).Row - 1 To 1 Step -1
    If Not (Range('A1').Offset(Compteur, 0).Value = '') And Not (Range('A1').Offset(Compteur - 1, 0).Value = '') Then
        Rows(Compteur + 1 & ':' & Compteur + 1).Insert Shift:=xlDown
    End If
Next Compteur
End Sub

Cordialement, A+

 

[LAURENT]

Un immense merci !!

Bien cordialement,

Laurent