With Worksheets("copie")
dercol = .Cells(2, .Columns.Count).End(xlToLeft).Column
derlig = .Range("A" & .Rows.Count).End(xlUp).Row
With Worksheets("collage")
derl1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1
End With
.Range(Cells(3, 1), Cells(derlig, dercol)).Copy Worksheets("collage").Range("A" & derl1)
End With
With Worksheets("collage")
.Range(.Cells(derl1, dercol + 1), .Cells(derl1 + derlig - 3, dercol + 1)) = "test"
End With