Insertion de lignes

Bonjour, j'ai une longue liste de données et j'aimerais savoir s'il était possible d'insérer une nouvelle ligne entre chaque donnée en une seule fois, car si je dois le faire pour chaque donnée j'en ai pour des heures. Je pense que c'est possible, mais je n'ai pas trouvé comment. Merci bcp.

Bonsoir,

En supposant que ta liste commence à la ligne 2 => (For i = Lg To 2) à régler

Sub InsertLignes()
Dim Lg%, i%
Application.ScreenUpdating = False
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = Lg To 2 Step -1
        Cells(i, 1).EntireRow.Insert
    Next i
End Sub

Amicalement

Claude

Merci beaucoup. Je n'ai jamais utilisé les macros, mais je vais essayer.

re, un exemple

super! Merci bcp

si Ok, c'est ici