XL 2010 ERREUR 13 EN MACRO

[mumu3969]

mI = cLigne1Tirage ' Ligne de départ
Do While True
If Range(cTirage1 + Trim(Str(mI))) = "" Then Exit Do ' Fin de liste

TAB_TIRAGES(INDICE_TAB_TIRAGES, 1) = Range(cTirage1 + Trim(Str(mI)))



TAB_TIRAGES(INDICE_TAB_TIRAGES, 2) = Range(cTirage2 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 3) = Range(cTirage3 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 4) = Range(cTirage4 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 5) = Range(cTirage5 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 6) = Range(cTirage6 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 7) = Range(cTirage7 + Trim(Str(mI)))



BONJOUR je ne comprend pas l'erreur, merci pour votre aide
mumu

 

[job75]

Déclarez le tableau avec Dim INDICE_TAB_TIRAGES As Long