Erreur 1004

Bonjour à toPetite question matinale.
Comme l'indicque le titre du Topic, j'ai une erreur 1004 qui s'affiche dans ma macro, étant débutant, je suppose que c'est un petit problème.....
Voici ma macro:

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("O65536").End(xlUp).Row)
Columns("O:O").Select
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
End With
End Sub

je vous remercie de toute l'aide que vous pourrez m'apporter thankksss.