Bonjour,
Voici une possibilité en supposant qu'il y ait une feuille nommée "Recap" qui accueille les données et que toutes les feuilles autres que la feuille Recap soient à inclure dans le code. Il faut aussi que les feuilles n'ait pas d'autre contenu que les tableaux à récupérer :
Sub test()
dim t()
for each ws in worksheets
if ws.name <> "Recap" then
n = n + 1: redim preserve t(1 to n): t(n) = ws.usedrange.value
end if
next ws
tbl = Convert3Dto2D(t)
with sheets("Recap").cells
.clearcontents
.resize(ubound(tbl), ubound(tbl, 2)).value = tbl
end with
end sub
function Convert3Dto2D(ArrSrc)
dim temp()
for i = lbound(ArrSrc) to ubound(ArrSrc)
for j = lbound(ArrSrc(i)) to ubound(ArrSrc(i))
n = n + 1: redim preserve temp(1 to ubound(ArrSrc(i), 2), 1 to n)
for k = lbound(ArrSrc(i), 2) to ubound(ArrSrc(i), 2)
temp(k, n) = ArrSrc(i)(j, k)
next k
next j
next i
Convert3Dto2D = application.transpose(temp)
end function
Cdlt,
Edit : Bonjour JFL,