Comptage nombre ligne non vide

Bonjour a tous,

Je suis en train de crée une macro. Elle fonctionne en partie mais j'ai un problème pour ce code :

Sub average() 'Calcul volatilité intraday 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 Z = 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,"""")" For i = 1 To var2 Sheets("Datas").Range(Sheets("Datas").Cells(3, 5), Sheets("Datas").Cells(3, 5)).Offset(i, y).FormulaR1C1 = "=IFERROR(RC[-3]/RC[-2]-1,"""")" Next i y = y + 5 Next x End Sub

En faite cela est pour un indice boursier. Le probleme viens de ma var2. Il est possible que le nombre de ligne ne soit pas le plus long dans cette colonne. Je voudrais donc un moyen de trouver dans toute la feuille la ligne la plus eloignée utilisé si possible. Merci

Slue Nane,

un essai:

Var2 = Sheets("Datas").UsedRange.Rows(Sheets("Datas").UsedRange.Rows.Count).Row

On peut soustraire 2 de Var2 si c'est oblogatoire

Var2 = Sheets("Datas").UsedRange.Rows(Sheets("Datas").UsedRange.Rows.Count).Row -2

Merci ca fonctionne parfaitement.

Excellent