macro d'une liste modifiable

[hal]

Salut

Je suis en train de faire plein de tableaux recapitulatifs, dont un qui contient des formules que je dois modifier selon la valeur d'une liste modifiable (cellule liée=F29) et selon un compteur de jours valeur en C2...

mon problème, c'est que le code suivant génère une erreur qd je mets la formule construite ds la cellule :

erreur d'exécution '1004'
erreur définie par l'application ou par l'objet

voici le code, si qq'un voit une erreur...


Sub SatisF()
Dim ret
Dim cpt As Integer
Dim FTemp

cpt = Range("C2").Value
TypeP = Range("F29").Value
Select Case TypeP
Case 1
Feui = "Jour" & cpt & "!$A:$A"
Case 2
Feui = "Jour" & cpt & "!$B:$B"
Case 3
Feui = "Jour" & cpt & "!$C:$C"
Case 4
Feui = "Jour" & cpt & "!$D:$D"
Case 5
Feui = "Jour" & cpt & "!$E:$E"
End Select

FTemp = "=SOMME.SI(Jour" & cpt & "!Y:Y; =1; " & Feui & ")"
Range("B31").FormulaR1C1 = FTemp
FTemp = "=SOMME.SI(Jour" & cpt & "!Y:Y; =2; " & Feui & ")"
Range("B32").FormulaR1C1 = FTemp
FTemp = "=SOMME.SI(Jour" & cpt & "!Y:Y; =3; " & Feui & ")"
Range("B33").FormulaR1C1 = FTemp

Selection.AutoFill Destination:=Selection.Resize(3, 3), Type:=xlFillDefault

End Sub


Toute aide sera la bienvenue
Merci

hal

 

[hal]

ah oui au fait, ds la fameuse formule de FTemp, "...Jour" & cpt & "!..."
c'est parce que je fais reference a des feuilles qui sont construites pour chaque jour...


merci encore

ps: j'espere que tout ça a un sens

 

[hal]

Encore une chose : qd j'affiche FTemp, la formule a l'air tout à fait correcte

Je comprends pas pourquoi il n'accepte pas de la mettre ds la cellule...