assistance on copy array sheet to a new workbook , excel crashes , get runtime error

I used the code below to copy active workbook to a new workbook. It works fine .

But when I used the same as below in another workbook, my excel crashes .

Note I recieved a batch of workbook from same supplier with same format , only contents which changes .

Sub copyactive()
ActiveWorkbook.Sheets.Copy
End Sub

I used another code

get runtime error 9, scriptt out of range

Sub copySheetsA()
'
'
ThisWorkbook.Sheets(Array("Page 1", "corps", "derniere_ page")).Copy

End Sub