Sub matrice()

Dim tableau(), lg1, lg2 As Integer
Dim k As String

lg1 = InputBox("Numero de ligne")
lg2 = InputBox("Numero de Colonne")
ReDim tableau(lg1, lg2)

For i = 1 To lg1
    For j = 1 To lg2
    tableau(lg1, lg2) = InputBox("saise numero pour ligne " & i & " et colonne" & j)
    k = k & tableau(lg1, lg2) & vbTab
    Next j
    k = k & vbCrLf
Next i

MsgBox prompt:=k, Buttons:=vbOKOnly

End Sub

    Source: geocities.com/manuhoro