Sub testB()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Compil" Then
Set desti = Sheets("Compil").ListObjects(1).DataBodyRange
ws.ListObjects(1).DataBodyRange.Copy desti.Offset(desti.Rows.Count)
Application.CutCopyMode = False
Set desti = Nothing
End If
Next
End Sub