Macro excel qui ne fonctionne pas

Bonjour,

ci dessous le code d'une macro, je ne comprend pas pourquoi macropg ne fonctionne pas alors que lorsque je met l'une ou l'autre et pas les deux cela fonctionne
si quelqu'un peut m'aider merci

Sub COPIOM()
'
' COPIOM Macro
' Macro enregistrée le 18/04/2011 par Michael
'

Application.EnableEvents = False
Workbooks.Open Filename:="C:\Users\Michael\Desktop\Test2.xls"
    Range("C5:E8").Select
    Selection.Copy
    Windows("test.xls").Activate
    Range("B2:D5").Select
    ActiveSheet.Paste
    Windows("test.xls").Activate
End Sub
Sub MACROPG()
'
' MACROPG Macro
' Macro enregistrée le 18/04/2011 par Michael
'

'
    Windows("test.xls").Activate
    Range("B2:D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("test2.xls").Activate
    Range("C5:E8").Select
    ActiveSheet.Paste
End Sub