Private Sub Tri_Click()
Sheets("HISTORIQUE PARC").Select
Range("o2").Value = num_parc
Range("r2").Value = ">=" & DTPicker10
Range("s2").Value = "<=" & DTPicker11
Range("A1:L100").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("n1:t2"), _
Unique:=False
End Sub