probleme macro de copie

bonjour a tous

voila j ai un souci sur une macro de copie


Saveship Macro
' Opens the weekly shipment report then saves a copy of it for Historical data
'

'
Range("A1").Select
Selection.Copy

Workbooks.Open Filename:= _
"P:\Alex\MI - weekly\Shipping Items Angel & Flora.xls"

Windows("Shipping Items Angel & Flora.xls").Activate
Range("A1").Select
ActiveSheet.Copy
le bug est la Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True le bug est la
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=1
Columns("T:T").ColumnWidth = 11.71

Bref le souci je suis une grosse grosse novice et ne connait pas grand chose au macro et mvb
La personne qui l a cree a quitte la societe et je me retrouve avec plein de nouveaux cadeaux de ce genre sous les bras ..
Bref.. il faut que je m y mette serieusement..

HELP !