Insertion des lignes

Bonjour,

Sur le fichier en PJ je veux ajouter les 13 lignes sur la feuille 3 après chaque ligne sur la feuille 2 .

Y a t-il une solution ? et merci d'avance

Bonjour,

Pour quelle raison, il n'y a pas d'entêtes de colonnes ?

Sinon, envoie un exemple de résultat souhaité.

Le forum n'aime pas l'incertitude. Soit précis !...

Cdlt.

Jean-Eric : c'est un modèle d'import que viens d'être transformer en .csv , je n'ai pas besoin à des entêtes pour les colonnes

Voilà un exemple de résultat sur le fichier en PJ si tu veux m'aider .

quelqu'un peut m'aider svp c'est urgent et je suis vraiment bloqué depuis hier

Bonjour,

Ton fichier en retour.

Cdlt.

Public Sub Merge_data()
Dim rng As Range
Dim lCol As Long, lrow As Long, N As Long, I As Long
    lCol = 7: lrow = 1
    Set rng = Feuil2.Cells(1).CurrentRegion
    N = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    For I = 1 To N
        With Feuil3
            .Cells(lrow, 1).Resize(, lCol).Value = Feuil1.Cells(I, 1).Resize(, lCol).Value
            .Cells(lrow + 1, 1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
            lrow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        End With
    Next I
    Feuil3.Cells(1).Resize(, rng.Columns.Count).EntireColumn.AutoFit
End Sub

Jean-Eric : merci pour la réponse

Re,

Pense à clore le sujet.

Cdlt.