Sub Tables_Avec_Boucles()
Dim Tables(1 To 10, 1 To 10)
Dim i As Integer, j As Integer
For i = LBound(Tables, 1) To UBound(Tables, 1)
For j = LBound(Tables, 2) To UBound(Tables, 2)
Tables(i, j) = i * j
Next j
Next i
MsgBox Tables(5, 5), 64, "5x5=?"
MsgBox Tables(3, 4), 64, "3x4=?"
MsgBox Tables(4, 3), 64, "4x3=?"
MsgBox Tables(10, 10), 64, "10x10=?"
End Sub