Inserer lignes

Bonjour

Je suis à la recherche d'un code VBA pour insérer 5 lignes toutes les cinq lignes en partant de la ligne 7.

Je joint un fichier exemple.

Je vous remercie d'avance

Cordialement

Max

Bonjour,

Ta feuille est-elle vide ou contient-elle des données sur chaque ligne ?

Les ligne insérées doivent-elles être colorées comme présenté ?

Salut,

La feuille contient des données, la couleur des lignes insérer ne sert à rien

Bonne journée

Max

Bonjour

Personne peut m'aider

Bonne journée

Bonsoir,

Testes ce code si il convient :

Sub Test()

    Dim I As Long
    Dim J As Integer

    I = 7

    Do

        For J = 1 To 5: Cells(I, 1).EntireRow.Insert xlShiftDown: Next J
        I = I + 6

    Loop While Cells(I, 1).Value <> ""

End Sub

Bonjour,

Je te remercie et te souhaite une bonne journée

Max