Bonjour,
Je souhaiterai copier les tous les lignes d'un tableau dont la date est 14 jours et plus après la date d'aujourd'hui.
Dans mon Code E1 est la date d'aujourdhui et 14 est l'écart
J'ai du code qui me permet de copier en recherchant un mot, mais je n'ai aucun idée en fonction d'une date.
Sub Copie()
Dim bL As Integer
Dim x As Integer
bL = Sheets("feuil1").Range("B" & Rows.Count).End(xlUp).Row: x = 1
Dim c As Range
For Each c In Sheets("feuil1").Range("B1:B" & bL)
If c.Value < "E1-G1" Then
c.EntireRow.Copy Worksheets("feuil2").Range("A" & x)
x = x + 1
End If
Next c
End Sub
Merci de votre aide