J'ai le code suivant :

strSql2 = "select count(*) from tblCreationTable where fIdApplication = " & Cint(Request("idapplication"))
objRS2.Open strSql2, objConn, adLockOptimistic, adCmdTable

If objRS2(0) <> "" Then
iNbLignes = Cint(objRS2(0))-1
Dim arrTables(iNbLignes)
...

Mais il me dit que ce que je mets ds arrTables doit etre une constante entière... mais c'est le cas non ?