Enlever des lignes de tableau en fonction de la date

Bonjour à tous,

Je reviens vers vous pour de l'aide.

Voici mon codage :

Sub enregister()            'Transfert des données depuis le classeur recapitulatif vers le classeur admin
    Dim i As Integer
    Dim J As Integer
    W_Recap.Activate
    W_Recap.Worksheets("recapitulatif").Unprotect
    For i = 2 To Range("A65536").End(xlUp).Row
            'Cells(2, 6).Value = Cells(2, 6).Value / 100
            W_RecapG.Worksheets("Données_à_extraire").Activate
            Rows(2).Insert
            Range("A2:L2").Select
                        With Selection.Font
                            .Name = "Lucida Bright"
                            .Size = 9
                            .Strikethrough = False
                            .Superscript = False
                            .Subscript = False
                            .OutlineFont = False
                            .Shadow = False
                            .Underline = xlUnderlineStyleNone
                            .ThemeColor = xlThemeColorLight1
                            .TintAndShade = 0
                            .ThemeFont = xlThemeFontNone
                        End With
                        With Selection.Interior
                            .Pattern = xlNone
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
            W_RecapG.Worksheets("Données_à_extraire").Range("A2", "H2").Value = W_Recap.Worksheets("Recapitulatif").Range("A2", "H2").Value
            W_Recap.Activate
            Rows(2).Delete
        Next i
       

Cette fonction est pour enregistrer.

Est-ce qu'il est possible de transformer cette partie de code de manière à ce que les lignes de mon tableau ne se suppriment pas lorsqu'on enregistre mais plutôt que mon tableau garde les données sur une semaine à chaque fois ? (Que les données puissent être vu à partir de la date du jour jusqu'a la "date - 7" du coup ) ?

Merci de votre attention

Bonjour,

Rien ne permet de faire le lien entre ton bout de code et ta demande

Joins un extrait significatif de tes données, avec des exemples concrets des résultats attendus (un filtre avancé permettrait peut-être de répondre à tes attentes ?)

Donc voici ma page de récapitulatif avec une ligne de rentrée ci-joint. On y voit le bouton enregistrer donc parle le code. Lorsque que l'on enregistre, les données s'en vont dans un autre classeur dont la feuille s'appelle " Données_à_extraire"

Donc après avoir enregistrer, les lignes rentrées comme sur la photo, elles se suppriment.

Est-ce plus compréhensible maintenant ?