Aide macro

Bonjour à toutes et à tous,

J'aimerai que k prenne le numero de la dernière cellule non vide mon tableau.

Voici le code ci-dessous le code:

Boucler tant que la cellule n'est pas vide, une fois que la cellule est vide alors k = i -1

Je pense que le problème vient de là, cette méthode ne doit pas fonctionner.

Est- ce que quelqu'un peut m'aider ?

Merci.

Cordialement,

Mairon

Sub Expand2()
Dim i As Integer, k As Integer
i = 8
While Cells(i, 5) <> ""
i = i + 1
'Sheets("Time series check ").Range("F8:J24").Formula = "=IF(SUMIFS('Database old data'!F$2:F$1786,'Database old data'!$E$2:$E$1786,'Time series check '!$C$8,'Database old data'!$C$2:$C$1786,'Time series check '!$C$9,'Database old data'!$A$2:$A$1786,'Time series check '!$E8)=0,"""",SUMIFS('Database old data'!F$2:F$1786,'Database old data'!$E$2:$E$1786,'Time series check '!$C$8,'Database old data'!$C$2:$C$1786,'Time series check '!$C$9,'Database old data'!$A$2:$A$1786,'Time series check '!$E8))"
Wend
'MsgBox i - 1
Sheets("Time series check ").Range("F8:J" & i - 1).Formula = "=IF(SUMIFS('Database old data'!F$2:F$1786,'Database old data'!$E$2:$E$1786,'Time series check '!$C$8,'Database old data'!$C$2:$C$1786,'Time series check '!$C$9,'Database old data'!$A$2:$A$1786,'Time series check '!$E8)=0,"""",SUMIFS('Database old data'!F$2:F$1786,'Database old data'!$E$2:$E$1786,'Time series check '!$C$8,'Database old data'!$C$2:$C$1786,'Time series check '!$C$9,'Database old data'!$A$2:$A$1786,'Time series check '!$E8))"
End Sub

Voilà comme ça, ça fonctionne