Copier/insérer une ligne selon comparaison de date

Bonjour,

d'habitude on peut copier coller une ligne d'une feuille vers une autre mais comment faire pour choisir ou insérer la ligne copiée?

voici un fichier joint pour faciliter les discussions

je cherche une solution en vba

merci bien

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonsoir, salut gmb !

J'arrive après coup ! Je livre quand même, je parcours en descendant, ça fera une variante...

Sub CopierLigne()
    Dim Lgn As Range, d As Date, i%
    Set Lgn = Worksheets("Template").Range("A3").Resize(, 75)
    d = Lgn.Cells(1, 22)
    With Worksheets("Accueil")
        i = 25
        Do While .Cells(i, 22) <> ""
            If .Cells(i, 22) > d Then
                .Rows(i & ":" & i + 1).Insert
                Lgn.Copy .Range("A" & i)
                .Rows(i).RowHeight = 18
                Exit Sub
            End If
            i = i + 2
        Loop
        Lgn.Copy .Range("A" & i)
        .Rows(i).RowHeight = 18
        .Rows(i - 1).RowHeight = 10
    End With
End Sub

Cordialement.