With Sheets("Donnée")
.Range("B2:D2").ClearContents
.Range("B2").Value = ">=" & Format(Me.txtDay1, "mm/dd/yyyy") 'Ici
.Range("C2").Value = "<=" & Format(Me.txtDay2, "mm/dd/yyyy")'Ici
.Range("D2").Value = Me.cboProd.Text
.Range("G5:J57").ClearContents
Set List = .Range("B4:E57")
Set Cri = .Range("B1:D2")
Set copy = .Range("G4:J57")
List.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, Copytorange:=copy, Unique:=False
End With