Sub copie()Dim derligA, derligF
derligA = Range("A" & Rows.Count).End(xlUp).Row
derligF = Range("F" & Rows.Count).End(xlUp).Row
If derligA >= derligF Then Exit Sub
Range("A" & derligA & ":E" & derligA).Copy Range("A" & derligA & ":E" & derligF)
End Sub