AutoFill avec Variable

Bonjour a tous,

Je souhaiterai réalisé une macro qui insère une formule toute les 5 colonnes sur la ligne 3. J'ai reussi cette étape la. Par la suite, je souhaiterais que cette cellule soit étendue jusqu'a la derniere ligne de données. Néanmoins je ne connais pas la syntaxe de la formule Autofill.

Voici la macro qui marche :

Sub Average() Var = (Cells(2, Columns.Count).End(xlToLeft).Column * 5) + 1 Var2 = Sheets("Datas").Range(Cells(3, 1), Cells(3, 1).End(xlDown)).Count y = 0 For x = 1 To Var Sheets("Datas").Range(Sheets("Datas").Cells(3, 5), Sheets("Datas").Cells(3, 5)).Offset(0, y).FormulaR1C1 = "=IFERROR(RC[-3]/RC[-2]-1,"""")" y = y + 5 Next x End Sub

J'ai essayé d'implanté ceci juste après la formule Sheets("datas") :

Selection.AutoFill Destisnation:=Range("Cells(3, " & y & "), Cells(" & Var2 & ", " & y & ")")

Néanmoins, cela ne fonctionne pas ...

Pourriez vous m'aider ? Merci

Voici le fichier

J'ai utilisé une boucle combiné, cela fonctionne pour la première colonne a remplir mais pas pour les suivantes. Voici le code

Sub Average() 'Calcul volatilité intraday Var = (Cells(2, Columns.Count).End(xlToLeft).Column * 6) + 1 Var2 = Sheets("Datas").Range(Cells(3, 1), Cells(3, 1).End(xlDown)).Count y = 0 Z = 1 w = 5 For x = 1 To Var Sheets("Datas").Range(Sheets("Datas").Cells(3, 5), Sheets("Datas").Cells(3, 5)).Offset(0, y).FormulaR1C1 = "=IFERROR(RC[-3]/RC[-2]-1,"""")" For i = 1 To Var2 Sheets("Datas").Range(Sheets("Datas").Cells(3, 5), Sheets("Datas").Cells(3, 5)).Offset(Z, 0).FormulaR1C1 = "=IFERROR(RC[-3]/RC[-2]-1,"""")" Z = Z + 1 Next i y = y + 5 Next x

Quelqu'un peut il m'éclairer ? Merci de votre aide.