Bonjour, peut-on définir une variable tableau à partir d'une variable ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim som(der) As Variant 'creer une var tableau pour le nombre de box potentielles
 
Erase som
 
Dim h As Integer
Dim sup As Long
h = 0
 
'remplir le tableau avec les sommes
    For colonne = 14 To der                'colonne par box
    sup = 0
        For lignesdates = debut To fin     'lignes dates
            sup = sup + Cells(lignesdates, colonne)
        Next lignesdates
 
        If sup <> 0 Then
        som(h) = sup
        h = h + 1
        Else
        End If
 
        Next
 
 
'on obtient le tableau rempli sans valeur nulle
Je vous remercie !