Dim array1() As Variant
For i = 1 To nbMaxRow
If Cells(i, column1).Value <> "" And Cells(i, column1) > 0 Then
If i > 1 Then
'on ajoute une colonne
ReDim Preserve array1(6, UBound(array1, 2) + 1)
Else
'tableau non initialise : on lui cree une colonne
ReDim array1(6, 1)
End If
'etc suite du traitement
End If
Next
'on prend la matrice transposee
array1 = TransposeArray(array1)