VBA Insérer copier des lignes

Bonjour à tous,

J'ai besoin de dupliquer des lignes dans une table selon certaines conditions ne sachant pas coder en vba j'ai trouvé un début de réponse sur divers forum mais je sèche sur la suite...

Voici mon problème :

Je souhaite dupliquer toutes les lignes de ma table 1 fois (insérer + copier ligne) -> ok fait :

Option Explicit
Sub DupliqueLignes()
Dim Lmax As Long, L As Long
    With Feuil1
        Lmax = .Cells(.Rows.Count, 1).End(xlUp).Row
        For L = Lmax To 1 Step -1    
            With .Rows(L)
                .Copy
                .Offset(1, 0).Resize(1).Insert Shift:=xlDown
            End With
        Next L
    End With
    Application.CutCopyMode = False
End Sub

Puis sous condition réitérer cette action à savoir dans mon fichier exemple pour chaque ligne vérifier si la donnée de la colonne B est différente de celle au-dessus il faut la dupliquer (insérer + copier) 3 fois.

Si cela peut faciliter l'action il est tout à fait envisageable de créer dans la colonne C un indicateur pour identifier les lignes à dupliquer.

Merci

Bonjour

Un essai à tester, si j'ai bien compris.

Te convient-il ?

Bye !

Bonjour,

Au top cela convient parfaitement ! Merci !