Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub
ThisWorkbook.Names.Add "date1", CDbl(CDate(TextBox1)) 'nom défini
ThisWorkbook.Names.Add "date2", CDbl(CDate(TextBox2)) 'nom défini
With Sheets("Vente").[A1].CurrentRegion
.Cells(2, .Columns.Count + 2) = "=AND(RC[-2]>=date1,RC[-2]<=date2)"
.AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count + 2).Resize(2), Range(.Rows(1).Address)
.Cells(2, .Columns.Count + 2) = ""
End With
End Sub