Sub TableauDansPlage_2colonnes_methode2()
Dim TabTiti(1 To 10, 1 To 2)
TabTiti(1, 1) = 3
TabTiti(1, 2) = 10
TabTiti(2, 1) = 5
TabTiti(2, 2) = 9
TabTiti(3, 1) = 2
TabTiti(3, 2) = 8
TabTiti(4, 1) = 9
TabTiti(4, 2) = 7
TabTiti(5, 1) = 1
TabTiti(5, 2) = 6
TabTiti(6, 1) = 4
TabTiti(6, 2) = 5
TabTiti(7, 1) = 8
TabTiti(7, 2) = 4
TabTiti(8, 1) = 6
TabTiti(8, 2) = 3
TabTiti(9, 1) = 7
TabTiti(9, 2) = 2
TabTiti(10, 1) = 10
TabTiti(10, 2) = 1
Range("E1").Resize(UBound(TabTiti, 1), UBound(TabTiti, 2)) = TabTiti
End Sub