Sub Macro1()
'creation d'une fonction permettant de stocker des valeurs de cellules
'dans un tableau,variable de passage puis d'afficher les valeurs dans
'des cellules plus loin
Dim tableau(1 To 4, 1 To 3) As Variant
'crée un tableau de 4*3
Dim vlLigne As Integer
Dim vlColonne As Integer
Dim vlLigne2 As Integer
Dim vlColonne2 As Integer
Dim i, j As Integer
vlLigne = 4
vlLigne2 = 2
For i = 1 To 4 'stockage des données dans un tableau fictif
vlColonne = 1
For j = 1 To 3
tableau(i, j) = Cells(vlLigne, vlColonne).Value
vlColonne = vlColonne + 1
Next j
vlLigne = vlLigne + 1
Next i
For i = 1 To 4 'affichage du tableau plus loin
vlColonne2 = 6
For j = 1 To 3
Cells(vlLigne2, vlColonne2).Value = tableau(i, j) 'pour afficher?print pas compatible
vlColonne2 = vlColonne2 + 1
Next j
vlLigne2 = vlLigne2 + 1
Next i
End Sub