[COLOR="DarkSlateGray"]Function Matrice_1(n As Long)
Dim i As Long, j As Long
[COLOR="SeaGreen"]'Dimensionnement et remplissage de la matrice.
'(Adaptez à votre problème.)[/COLOR]
ReDim x(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
x(i, j) = 10 * i + j
Next j
Next i
Matrice_1 = x
End Function
Sub toto()
Dim u()
u = Matrice_1(3)
[COLOR="SeaGreen"]'Afficher la valeur de la ligne 1, colonne 2 :[/COLOR]
MsgBox "Ligne 1, colonne 2 : " & u(1, 2)
End Sub
[/COLOR]