Convertir formules en VBA

Sub Formules()
[I4] = "=COUNT(F:F)"
[I6] = "=IF(ISERR(AVERAGE(F:F)),"""",AVERAGE(F:F))"
[I8] = "=IF(ISERR(STDEV(F:F)),"""",STDEV(F:F))"
[I10] = "=IF(ISERR(I8*100/I6),"""",I8*100/I6)"
[I12] = "=MIN(F:F)"
[I13] = "=MAX(F:F)"
[I15] = "=IF(ISERR(I6-2*I8),"""",I6-2*I8)"
[I16] = "=IF(ISERR(I6+2*I8),"""",I6+2*I8)"
End Sub

Sub My_formula()
'[I4] = Application.Subtotal(3, [F:F]) - 1' si filtre
[I4] = Application.CountA([F:F]) - 1
[I6] = Application.Average([F:F])
If Not IsNumeric([I6]) Then [I6] = ""
[I8] = Application.StDev([F:F])
[I10] = [I8] * 100 / [I6]
[I12] = Application.Min([F:F])
[I13] = Application.Max([F:F])
[I15] = [I6] - 2 * [J8]
[I16] = [I6] + 2 * [J8]
End Sub