Déclaration du tableau et constante

Bonjour,

je suis en train d'effectuer une macro où je déclare plusieurs tableaux à une dimension, seulement lorsque je lance la macro, ça m'indique que je dois utiliser des constantes pour la déclaration de la taille du tableau. Plus clairement, lorsque j'écris ça:

Dim a As Integer
a = nbCas
Dim gravité(a - 1)

ça me dit dans la troisième ligne que a doit être une constante. J'ai essayé sous la forme :

Const a As Integer = nbCas
Dim gravité(a - 1)

Mais ça ne fait que reporter le problème à la première ligne où c'est maintenant nbCas qui doit être une constante. Pour info, nbCas est une fonction que j'ai créée qui compte juste le nombre de cases remplies sur une certaine plage, voilà son code :

Function nbCas() As Integer
    Dim a As Integer
    a = 0
    While Sheets(2).Cells(a + 3, 3) <> ""
        a = a + 1
    Wend
    nbCas = a
End Function

Est ce que quelqu'un aurait la solution? Merci d'avance!

EDIT : Je pense que ça doit être lié au fait que nbCas est une fonction, mais je ne parviens pas à trouver la parade

Bonjour

Essayes

Sub test()
Dim a As Integer
Dim gravite()         ' Déclaration
  a = nbCas

  ReDim gravite(a - 1)  ' Initialisation
End Sub

Super, ça marche!