Concatainer formule

excel 2003,

Salut les loulous,
je vous écris pour avoir une info rapide est il possible, sous VBA, de réduire cette macro:
Sub formule_automatisation()
Range("AK1").Select
ActiveWindow.SmallScroll ToRight:=2
ActiveCell.FormulaR1C1 = "Nombre de jours / arrêt"
Range("ak2").Select
ActiveCell.FormulaLocal = "=si(et(ai2=0;ah2=ah3);si(si(i2=i3;somme.si(ah:ah;ah2;ab:ab);somme.si(ah:ah;ah2;ab:ab))=si(i3=i4;somme.si(ah:ah;ah3;ab:ab);somme.si(ah:ah;ah3;ab:ab));"";somme.si(ah:ah;ah2;ab:ab));somme.si(ah:ah;ah2;ab:ab))"
Range("ak2").Select
Selection.AutoFill Destination:=Range("ak2:ak100")
End Sub

Car a a chaque fois que j'essaye de l'éxécuter, une erreur bog 1004 apparait .
Je vous remercie de toutes les pistes éventuels à suivre
tchou