Option Explicit
Private Sub Worksheet_Activate()
Dim TE(), LE&, TS(1 To 9, 1 To 10), LS1&, LS2&, C&, V1, V2
TE = Feuil1.[A1].Resize(Feuil1.UsedRange.Rows.Count, 10).Value
V1 = Me.[A1].Value & "*"
V2 = Me.[A2].Value & "*"
LS2 = 5
For LE = 1 To UBound(TE, 1)
If TE(LE, 3) Like V1 Then
LS1 = LS1 + 1: For C = 1 To 10: TS(LS1, C) = TE(LE, C): Next C
ElseIf TE(LE, 3) Like V2 Then
LS2 = LS2 + 1: For C = 1 To 10: TS(LS2, C) = TE(LE, C): Next C
End If: Next LE
Me.[A4:J12].Value = TS
End Sub