Sub consolide_onglets()
Dim s&
Sheets("log").Cells.ClearContents
For s = 2 To Sheets.Count
Sheets(s).Select
r = Sheets(s).Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
c = Sheets(s).Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
Range(Cells(1, 1), Cells(r, c)).Select
Range(Sheets(s).[A1], Sheets(s).Cells(r, c)).Copy _
Sheets("log").[A65000].End(xlUp).Offset(0, 0)
Next s
On Error Resume Next
End Sub