Bouton a cassé ma méthode Autofill

Rebonjour,
Deuxième sujet de la journée.
je viens de créer un bouton pour que ma macro s'effectue d'elle même, dès que l'on clique sur le bouton. Depuis ma méthode autofill ne fonctionne plus.....mon code est sommaire si vous arrivez à le simplifier tant mieux mais j'aimerais surtout avoir votre avis sur mon autofill qui ne fonctionne plus
Private Sub Traitement_Click()
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" ).AutoFill Destination:=Range("CB2:CB" & Range("CA65536" ).End(xlUp).Row)
Range("CB2" ).Select
With Columns("CB:CB" ).Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
Sheets("Données ETP" ).Range("CB2:CB" & Range("A65536" ).End(xlUp).Row).NumberFormat = "0.00"
Merci pour votre aide