Demande de vérification code tablo 6 dimension [résolu]

option explicit
sub tablo1 ()
dim i as integer, j as integer,k as integer,l as integer,m as integer,n as integer,l as integer,c as integer
' definit le tableau a 6 dimention ainsi que leur taille soit ici 10 pour chaque
dim vartab(1 to 10 , 1 to 10 , 1 to 10 , 1 to 10 , 1 to 10 , 1 to 10 ) as string

'==================================================================== definition des point de depart
l = 1 ' premiere ligne de recherche d'information
c = 1 ' premiere colone de recherche d'information

'===================================================================== remplissage du tableau

for c= 1 to 10														' on parcourt la plage a remplir colonne par colone 



	for i to ubound(vartab,1) 										'boucle sur la premiere dimension
		for jto ubound(vartab,2)									'boucle sur la deuxieme dimension
			for k to ubound(vartab,3)								'boucle sur la troisieme dimension
				for l to ubound(vartab,4)							'boucle sur la quatrieme dimension
					for m to ubound(vartab,5)						'boucle sur la cinquieme dimension
						for n to ubound(vartab,6)					'boucle sur la sixieme dimension
						
						' on remplit le tableaux
						vartab(i,j,k,l,m,n) = feuilx.cells(l,c).value & _
												feuilx.cells(l+1,c).value & _
												feuilx.cells(l+2,c).value & _
												feuilx.cells(l+3,c).value & _
												feuilx.cells(l+4,c).value & _
												feuilx.cells(l+5,c).value & _
						
						next n
					next m
				next l
			next k
		next j
	next i
	
	
next c

end sub