Sub SélectionParLieuRapide()
Dim TE(), LE&, TS(), LS&, Arg
TE = Feuil4.[T2:AF2].Resize(Feuil4.[T35536].End(xlUp).Row - 1).Value
ReDim TS(1 To UBound(TE, 1), 1 To 2)
Arg = Feuil8.Cells(3, 2).Value
For LE = 1 To UBound(TE, 1)
If TE(LE, 13) = Arg Then
LS = LS + 1
TS(LS, 1) = TE(LE, 1)
TS(LS, 2) = TE(LE, 7)
End If: Next LE
Feuil4.[AN2].Resize(UBound(TS, 1), 2).Value = TS
End Sub