Private Sub CommandButton1_Click()
Dim debut, fin As Date
debut = Format(DTPicker1.Value, "mm/dd/yyyy")
fin = Format(DTPicker2.Value, "mm/dd/yyyy")
Sheets("Feuil1").Range("A1:CZ1000").AutoFilter Field:=69, Criteria1:="OUI"
Sheets("Feuil1").Range("A1:CZ1000").AutoFilter Field:=78, Criteria1:=">=" & debut, Operator:=xlAnd, Criteria2:="<=" & fin
End Sub