Passer un tableau de deux dimensions en paramètre d'une function

Sub test()
Dim Tb_in(3, 2) As Double, Tb_Out As Variant
Dim i&, j&
'remplissage tableau initial
For i = 1 To 3
    For j = 1 To 2
        Tb_in(i, j) = 1
    Next j
Next i
'envoi à la fonction le tableau en paramètre
Tb_Out = MaFonction(Tb_in) 'retour du tableau dans un variant
'visualisation résultat :
MsgBox "la valeur : " & Tb_in(3, 2) & " est devenue : " & Tb_Out(3, 2)
End Sub

Function MaFonction(Tbl() As Double) As Variant
Dim i&, j&, Tb_Interm(3, 2) As Double
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
    For j = LBound(Tbl, 2) To UBound(Tbl, 2)
        'ici on ne fait que multiplier par 2 les valeurs du tableau passé en paramètre
        Tb_Interm(i, j) = Tbl(i, j) * 2
    Next j
Next i
MaFonction = Tb_Interm
End Function