Excel VBA : Calculer un écart-type en fonction d'une date

Bonjour,

J'aurais aimé calculer un écart-type des redements (plage returns) en fonction d'une date entre dateDeb et dateFin (d'une plage dates contenant toute les dates).
J'avais deux idées mais les deux me retournent #valeur. POurriez-vous m'aider svp? Je ne pense pas être loin de la solution...

Function Ectype(returns as Range, dates as Range, dateDeb as Date, dateFin as Date) as Variant
Dim i,j,k,l,n,comp1,comp2 as Integer
n=dates.Columns.Count
comp1=0
comp2=0

For i=1 To n
comp1=comp1+1
If dates(i) = dateDeb Then
Deb=dates.Cells.Value(i) 'recup la place de la date debut
End If

For j=1 To n
comp2=comp2+1
If dates(i) = dateFin Then
Fin=dates.Cells.Value(j) 'recup la place de la datefin
End If

Dim res() as Range
ReDim res(n)

For k=comp1 To comp2
res(i)=returns(i)
Next k

Ectype=Application.WorksheetFunction.StDev(res)

End Function

------------------------------------------------------------------------------------------------

Function Ectype2(returns as Range, dates as Range, dateDeb as Date, dateFin as Date) as Variant

Dim i,comp,n as Integer
Dim res() as Range
comp=0
ReDim res(0)

Deb=dates.Find(dateDeb,dates) 'trouve l'indice de date debut
Fin=dates.Find(dateFin,dates) 'trouve l'indice de date fin
comp=Deb
n=Fin-Deb 'pour avoir le nb donnees sur la periode voulue

For i=1 To n
Do While comp <= dateDeb
res(i)=returns(comp)
comp=comp+1
Loop
Next i

Ectype2=Application.WorksheetFunction.StDev(res)

End Function

Merci