Bonsoir,
Cells prend comme premier argument le numéro de ligne, et pas celui de colonne.
Private Sub Workbook_Open()
Dim colonne, ligne As Integer
'Dim essai(0 To 11, 0 To 9) As Variant
Dim essai(1 To 12, 1 To 10) As Variant
For ligne = 2 To 13
For colonne = 1 To 10
essai(ligne - 1, colonne) = Cells(ligne, colonne).Value
Next colonne
Next ligne
MsgBox essai(1, 4)
End Sub