Option Explicit
Sub test()
Dim maplage As Range, x As Long, y As Long, z As Integer
Set maplage = Range("brut").Offset(1, 0).Resize(Range("brut").Rows.Count - 1, Range("brut").Columns.Count)
With Worksheets(Range("DonneesFour").Parent.Name)
y = .ListObjects("DonneesFour").Range.Row + 1
z = .ListObjects("DonneesFour").Range.Column
x = .ListObjects("DonneesFour").ListRows.Count + y - 1
.Rows(y & ":" & x).Delete Shift:=xlUp
x = .ListObjects("DonneesFour").ListRows.Count + y
maplage.Copy Destination:=.Cells(x, z)
End With
End Sub