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