[VBA] Les tableaux...

Public Sub spidernono()
Dim tablo(1 To 10, 1 To 2) 'tableau à deux colonnes et de 10 lignes

'ReDim tablo(1 To 10) 'on definit 10 lignes au tableau

'on remplit la premiere colonne du tableau des chiffres de 1 a 10
'et la deuxieme colonne des chiffes de 100 a 1000
For i = 1 To 10
    tablo(i, 1) = i
    tablo(i, 2) = i * 100
Next i

MsgBox "limite max verticale : " & UBound(tablo, 1) 'on affiche la limite supérieur du tableau dans sa dimension verticale
MsgBox "limite max horizontale : " & UBound(tablo, 2) 'on affiche la limite supérieur du tableau dans sa dimension horizontale

'on renvoi le tableau dans les cellules a1:b10
Range("a1:b" & UBound(tablo)) = tablo

End Sub

 Dim i as integer