Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Entrer Une Date De Début"
Else
If TextBox2 = "" Then
MsgBox "Entrer Une Date De Fin"
Else
Dim datedbut As String
Dim datefin As String
datedebut = Format(TextBox1, "dd-mm-yyyy")
datefin = Format(TextBox2, "dd-mm-yyyy")
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=3, Criteria1:=">=" & datedebut, Operator:=xlAnd, Criteria2:="<=" & datefin
End If
End If
End Sub