Filtrer selon une date

Option Explicit

Private Sub CommandButton1_Click() 'impression du planning d'une journée
Application.ScreenUpdating = False
Dim djour As Date, ljour As Long
On Error GoTo Erreur_Date
  djour = CDate(TextBox1)
  ljour = DateSerial(Year(djour), Month(djour), Day(djour))
  ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=">=" & ljour, _
      Operator:=xlAnd, Field:=1, Criteria2:="<" & ljour + 1
  Unload Me
  ActiveWindow.SelectedSheets.PrintPreview
  ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1
  Exit Sub
  
Erreur_Date:
  MsgBox "Erreur de date"
  TextBox1.SetFocus
  TextBox1.SelStart = Len(TextBox1)
  Exit Sub
End Sub