Bug macro

Bonjour,

Je suis en trainde faire une macro et j'ai un bug qui est apparu et je ne sais pas pourquoi...
La macro doit normalement aller copier la derniere colonne avec des cellules remplies.
C'est la ligne en rouge qui bug.



Code :

Workbooks.Open "C:\Documents and Settings\sylvain laurens\Desktop\STAGE SYLVAIN\ConsoWeekly.xls"
Workbooks("ConsoWeekly.xls").Activate

Windows("ConsoWeekly.xls").Activate

Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Select
DerColo = Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Range("AB2").End(xlToLeft).Column
Range("R2C28:R2C" & DerColo).Select
Range("AB2:AB35").Select
Selection.Copy
Windows("Book1.xls").Activate
Sheets("Datas").Select
Cells(7, 16).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Merci pour votre aide.

Crdlt,

SANG1