Sub MaSubEssai()
Dim i As Integer, j As Integer
Dim EssaiTablo()
ReDim EssaiTablo(127, 8)
For i = 0 To UBound(EssaiTablo, 1)
For j = 0 To UBound(EssaiTablo, 2)
EssaiTablo(i, j) = Range(j + 1 & ":" & i + 1)
Next j
Next i
MsgBox EssaiTablo(24, 3).Value
End Sub