Insertion d'une ligne avec copie de celle au dessus

Bonjour,

Je ne suis pas très bonne en VBA et j'ai beau avoir essayé de consulter des articles je n'ai pas trouvé comment résoudre mon problème.

J'ai un fichier sortant d'un logiciel pour lequel il faudrait que je fasse un retraitement en plusieurs étapes.

- pour les lignes dont le chiffre commence par 6 dans la colonne C, j'aurai souhaité qu'il y ait une copie de la ligne qui soit insérée en dessous de la ligne d'origine

- que pour les lignes qui étaient présentes initialement dans le fichier, il y ait indiqué dans une nouvelle colonne donc le K la lettre G et pour les lignes créées la lettre A

Après je ne sais pas s'il y a un sens à respecter pour que les deux étapes marchent

Est-ce que quelqu'un saurait m'aider ?

Merci d'avance.

Bonjour,

Voici le code à mettre dans un module. Après vérification cela fonctionne parfaitement.

Sub CopierLignes()
    Dim i As Long
    Dim DerLigne As Long

    DerLigne = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    i = DerLigne
    While i >= 2
        If Left(ActiveSheet.Cells(i, "C").Value, 1) = "6" Then
            If ActiveSheet.Cells(i, "K").Value <> "G" Then
                ActiveSheet.Rows(i).Copy
                ActiveSheet.Rows(i + 1).Insert Shift:=xlDown
                ActiveSheet.Cells(i + 1, "K").Value = "A"
            End If
        End If
        i = i - 1
    Wend

Application.CutCopyMode = False
End Sub