Pb Filtre élaboré entre 2 Date dans USF

Private Sub cmdFiltre_Click()
 Dim List As Range
 Dim Cri As Range
 Dim copy As Range
 With Sheets("Filtrage")
 .Range("O4").Value = "Date"
 .Range("P4").Value = "Date"
 .Range("O5").Value = ">=" & Format(UsfCrit.txtDone, "mm/dd/yyyy")
 .Range("P5").Value = "<=" & Format(UsfCrit.txtDtwo, "mm/dd/yyyy")
 Set List = .Range("B4:F30")
 Set Cri = .Range("O4:P5")
 Set copy = .Range("H4:L30")
 List.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, Copytorange:=copy,   unique:=False
 End With
 Unload Me
End Sub

Private Sub cmdFiltre_Click()
  Dim List As Range
  Dim Cri As Range
  Dim copy As Range
  With Sheets("Filtrage")
   .Range("O4").Value = "Date"
   .Range("P4").Value = "Date"
   If Val(Application.Version) >= 12 Then
     .Range("O5").Value = ">=" & Format(UsfCrit.txtDone, "mm/dd/yyyy")
     .Range("P5").Value = "<=" & Format(UsfCrit.txtDtwo, "mm/dd/yyyy")
   Else
     .Range("O5").Value = ">=" & UsfCrit.txtDone
     .Range("P5").Value = "<=" & UsfCrit.txtDtwo
   End If
   Set List = .Range("B4:F30")
   Set Cri = .Range("O4:P5")
   Set copy = .Range("H4:L30")
   List.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, Copytorange:=copy, unique:=False
  End With
  Unload Me
End Sub