Bug qui me bloque et ca concerne erreur d'exécution '9' l'indice

Bonjour,

j'essaye de copier une ligne d'un fichier .xlsm vers un autre de mêle type et ca concerne, sauf que quand j'essaye de le lancer il y'a un bug "erreur d'exécution '9' l'indice n'appartient pas à la sélection" je ne sais pas c'est du à quoi
voici le code

<code>Sub CopierColler()


Dim Rep As String
Dim sheet As Worksheet
Dim sheetDaily AsWorksheet
Set sheetDaily = Worksheets("Vend")

==> ca concerne cette ligne de code:
Set sheet = Worksheets("Core")

Application.ScreenUpdating = False
Rep = "C:\Users\toshiba\Desktop\Principal\"

Workbooks.Open Rep & FichAdwya
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


With Windows("Daily.xlsm.xlsm").Activate
sheetDaily.Range("C4:H4").Select
Selection.Copy
Windows("Adwya.xlsm").Activate
sheet.Range("A1:F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

End With
End Sub