Intercaler des lignes en automatioque

Bonjour

Je souhaite intercaler, avec VBA, une ligne vide entre chaque désignation.

Feuil 1 devient Feuil 2

Possibilité d'intercaler une ligne vide sur l'onglet Feuil 1 (évite de créer un second onglet)

Salutations

sg76

ceci devrait aller !!!

non?

A +

Bonsoir à tous,

Sub Intercaler()
Dim Lg&, i%
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row

    For i = Lg To 3 Step -1
        If Not IsEmpty(Cells(i - 1, "a")) Then
            Cells(i, "a").EntireRow.Insert
        Else
            i = i - 1
        End If
    Next i
End Sub

Amicalement

Claude

dubois a écrit :

Bonsoir à tous,

Sub Intercaler()
Dim Lg&, i%
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row

    For i = Lg To 3 Step -1
        If Not IsEmpty(Cells(i - 1, "a")) Then
            Cells(i, "a").EntireRow.Insert
        Else
            i = i - 1
        End If
    Next i
End Sub

Amicalement

Claude

Bonjour

Merci beaucoup, c'est parfait.

C'est exactement ce dont j'avais besoin.

sg76