Autofill methode range ne fonctionne pas

Bonjour,
Etant débutant sur excel 2003, j'ai un probleme sur ma macro avec Autofill et la methode range je suis sur que c'est un petit probleme
Merci pour votre aide
Sub Absenteims_contratadditionnel()
Sheets("Données ETP").Activate
Range("CB1").Select
ActiveCell.FormulaLocal = "ETP"
Range("CB2").Select
ActiveCell.FormulaLocal = "=SI(SI(ESTERREUR(SI(S2<DATE(2012;1;1);(T2-""2012-01-01"")/30/12;(T2-S2)/30/12));SI(S2<DATE(2012;1;1);1;(""2012-12-31""-S2)/30/12);SI(S2<DATE(2012;1;1);(T2-""2012-01-01"")/30/12;(T2-S2)/30/12))*(Z2/100)>1;1;SI(ESTERREUR(SI(S2<DATE(2012;1;1);(T2-""2012-01-01"")/30/12;(T2-S2)/30/12));SI(S2<DATE(2012;1;1);1;(""2012-12-31""-S2)/30/12);SI(S2<DATE(2012;1;1);(T2-""2012-01-01"")/30/12;(T2-S2)/30/12))*(Z2/100))"
Range("CB2").Select
Selection.AutoFill Destination:=Range("CB2:CB" & Range("B65536").End(xlUp).Row)
Columns("CB:CB").Select
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
Sheets("Données HS").Activate
Range("O1").Select
ActiveCell.FormulaLocal = "Volume HS"
Range("O2").Select
ActiveCell.FormulaLocal = "=SOMME.SI(C:C;C2;H:H)"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O" & Range("65536").End(xlUp).Row)
Columns("O:O").Select
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
End With
End Sub