Dim TabE(), LE&, TabS(), LS&, C&, i&
ReDim TabS(1 To 50000, 1 To 10)
For i = LBound(Noms_feuilles) To UBound(Noms_feuilles)
TabE = Sheets(Noms_feuilles(i)).ListObjects(1).DataBodyRange.Value
If UBound(TabS, 2) < UBound(TabE, 2) Then ReDim Preserve TabS(1 To UBound(TabS, 1), 1 To UBound(TabE, 2))
For LE = 1 To UBound(TabE, 1)
If TabE(LE, Col) = 1 Then
LS = LS + 1
For C = 1 To UBound(TabE, 2)
TabS(LS, C) = TabE(LE, C)
Next C
End If
Next LE
Next i