Public Sub testTab()
Dim Tblo(10, 4)
For i = 1 To 10
For y = 1 To 4
Tblo(i, y) = 12 * i + 4 * y
Next y
Next i
'Le tableau entier :
Range("A1").Resize(UBound(Tblo, 1), UBound(Tblo, 2)).Value = Tblo
'ligne à extraire en ligne :
y = 3
Range("A12").Resize(1, UBound(Tblo, 2)).Value = Application.Index(Tblo, y)
'colonne à extraire en ligne :
y = 2
Range("A14").Resize(1, UBound(Tblo, 1)).Value = Application.Index(Application.Transpose(Tblo), y)
'colonne à extraire en colonne :
y = 2
Range("A16").Resize(UBound(Tblo, 1), 1).Value = Application.Index(Tblo, , y)
End Sub