Déplacer des lignes si date inférieure à autre date

Bonjour,

Je ne parviens pas à trouver comment écrire ceci :

Couper et coller les lignes de ma feuille "CSV états de salaire" dont la date indiquée en colonne E est inférieure à la date indiquée dans la feuille "AM et barème" en cellule I1

J'ai fait ceci après moultes recherches mais ça coince quelque part.

Pour que ça soit parfait l'idéal serait que les lignes concernées soient supprimées de ma feuille "CSV états de salaire" mais ça je ne vois pas comment le demander à la suite du déplacement.

Merci beaucoup à vous et à votre patience ;)

Sub Identifier_corrections()

' trouver les lignes dans la feuille "CSV états de salaire" dont la colonne E indique une date inférieure
' à la date contenue dans la feuille "AM et barème" en cellule I1

Dim madate As Date
Dim x As Integer
madate = Sheets("AM et barème").Select
Sheets("AM et barème").Range("I1").Select

Sheets("CSV états de salaire").Select

For x = Range("L65536").End(xlUp).Row To 2 Step -1
If Range("E" & x) < madate Then Call déplacer

Next

End Sub

Sub déplacer_corrections()

' déplacer ces lignes dans la feuille corrections

    ActiveSheet.Rows(ligne).Select
    Selection.Cut
    Windows("corrections").Activate
    ActiveSheet.Paste

End Sub

Bonjour,

Si j'ai bien compris ton problème voici ma solution !

Mille mercis tenders_vba, ça fonctionne