Inserer un texte toutes les six ligne

Bonjour

Je cherche un code pour insérer un texte toutes les six lignes

Code à insérer:

</tr><tr> <!--3 -->

</tr> <tr>

</tr><tr> <!-- 4 -->

</tr> <tr>

</tr><tr> <!-- 5 -->

ect….

Je joint un fichier plus explicatif

Cordialement

Max

Bonjour,

Jusqu'à ?

Bonjour

Tu est gentil! j'y suis aller voir avant de poster je n'ai rien trouver qui correspond?

a moins que j'ai mal chercher

Max

de quoi on parle ?

Re,

Ma liste est de 20 à 150 lignes.

@+

Max

Re,

Personne peut m'aider

Cordialement

Max

Re,

Sub InsérerTr()
    Dim tr(1), i%, i0%, n%, r%
    n = 20 'Nombre d'insertions
    tr(0) = "</tr> <tr>"
    tr(1) = "</tr><tr> <!--3-->"
    r = 3: i0 = -1
    Application.ScreenUpdating = False
    With ActiveSheet
        For i = 1 To n
            .Cells(i * 6 + i0, 1) = tr(i Mod 2)
            If i Mod 2 = 0 Then
                tr(1) = Replace(tr(1), r, r + 1): r = r + 1
            End If
        Next i
    End With
End Sub

Cordialement.

Re,

je te remercie beaucoup sa fonctionne nickel

Bonne soirée

Max