Dim Ligne As Long, Derligne As Long, I As Long
Dim Cherche As String, DateLue As String
Dim EcartJour As Long, EcartAn As Long
Dim Données As Variant
Ligne = 7
Feuil1.Rows(Ligne & ":65536").Delete
Cherche = TextBox1.Text
If Cherche <> "" Then Cherche = CDate(Cherche) Else Exit Sub
If IsDate(Cherche) Then
Range("F2").Value = " date < " & Format(Cherche, "dd/mm/yyyy")
Derligne = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
For I = 3 To Derligne
DateLue = Sheets("Feuil2").Cells(I, "E").Value
If DateLue <> "" Then
EcartJour = DateDiff("d", Cherche, DateLue)
EcartAn = DateDiff("yyyy", "01/01/" & Year(Cherche), DateLue)
If EcartJour < 0 And EcartAn >= 0 Then
Ligne = Feuil1.Range("" & "B" & "65536").End(xlUp).Row + 1
Données = Worksheets("Feuil2").Range("a" & I & ":az" & I)
Range("B" & Ligne).Resize(1, UBound(Données, 1)) = Données
End If
End If
Next
End If