Sub classer()
Dim i&, fin&, aa As Variant, bb As Variant, y&, a&
fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
aa = Feuil1.Range("A2:J" & fin)
y = 1
For i = 1 To UBound(aa)
If CDate(aa(i, 1)) = CDate(Feuil2.Range("B2")) Then aa(i, 10) = "oui": y = y + 1
Next i
If y = 1 Then Exit Sub
ReDim bb(y - 1, 8)
y = 1
For i = 1 To UBound(aa)
If aa(i, 10) = "oui" Then
For a = 1 To UBound(bb, 2)
bb(y, a) = aa(i, a + 1)
Next a
y = y + 1
End If
Next i
Feuil2.Range("D5:K2000").ClearContents
Feuil2.Range("D5").Resize(UBound(bb), UBound(bb, 2)) = bb
fin = Feuil2.Range("D" & Rows.Count).End(xlUp).Row
Feuil2.Range("D5:K" & fin).Sort Key1:=Feuil2.Range("E5") _
, Order1:=xlAscending, Key2:=Feuil2.Range("F5"), Order2:=xlAscending, Key3:=Feuil2.Range("I5") _
, order3:=xlAscending, Header:=xlNo
End Sub