Sub Tableau()
' Un tableau simple
    Dim monTableau(10)
    Dim i As Integer
    
    ' monTableau(0) = 2

    For i = 0 To 10
        monTableau(i) = Cells(i + 1, 1) ' i * 2
        If monTableau(i) = 25 Then
            monTableau(i) = 100
            Cells(i + 1, 1) = monTableau(i)
        End If
    Next
    
    MsgBox monTableau(0) ' On affiche le contenu du tableau case 0
    MsgBox monTableau(4)
    MsgBox monTableau(8)
    
    ' Tableau à 2 dimenssions
    Dim monTableau2(10, 10)
    monTableau2(5, 5) = 55
    MsgBox monTableau2(5, 5)
    
End Sub

