Aide pour fignolage code

[Stef]

Bonjour tout le monde,

j ai fait une petite macro qui va chercher quelques infos sur deux autres fichiers excel, le probleme c est que j ai fais le code un peu a taton et j aimerai fluidifier l action de la macro.
Je vous post ici mon code et si vous avez des suggestions n hesitez pas.

Sub Macro1()

ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source.xls'
Range('E11:G17').Copy
Windows('~final2.xls').Activate

Range('Z5').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range('Z5:ab11').Copy
Range('P6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range('Z5:ab11').ClearContents


ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source2.xls'
Range('h23,h49').Copy
Windows('~final2.xls').Activate

Range('Z12').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range('Z12:Z13').Copy
Range('X6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z12,z13').ClearContents

Windows('source.xls').Close
Windows('source2.xls').Close

End Sub

Merci.

 

[Stef]

Nobody can help me?