Comparer 2 feuilles et Ajouter des lignes vierge

Bonjour,

je souhaite automatiser le fichier excel ci-joint. Le sujet est le suivant :

- à l'initial :

> une feuille "2017_initial"

> une feuille "2018"

la feuille "2017_résultat" est le résultat que je souhaite obtenir, à savoir :

- dans cette feuille "2017_initial" ajouter automatiquement des lignes vierges qui permettent de mettre les mêmes N° de Code (colonne A) sur les mêmes N° de lignes que la feuille "2018"

merci de votre aide

Slts

Philippe

Bonsoir BarbeLP

Peut-être comme ceci :

Option Explicit
Sub test()
Dim i As Long, n As Long
    With Sheets(1) '1ere feuille dans le classeur
        With .Range("a1", .Range("a" & .Rows.Count).End(xlUp)).Offset(, 4)
            .Formula = "=match(a1,'2018'!a:a,0)"
        End With
        For i = .Range("e" & .Rows.Count).End(xlUp).Row To 2 Step -1
            n = .Cells(i, "e") - Cells(i - 1, "e")
            If n > 1 Then
                .Rows(i).Resize(n - 1).Insert
            End If
        Next
        .Columns("e").Delete
    End With
End Sub

klin89

Bonsoir Klin89, je vous remercie pour votre aide tout fonctionne très bien

meilleures salutations

à la prochaine