Bjr,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub RemplisAléatoire()
  Dim x(1 To 10, 1 To 2) As Integer
 
  For comp1 = LBound(x, 1) To UBound(x, 1)
   For comp2 = LBound(x, 2) To UBound(x, 2)
     x(comp1, comp2) = comp1 * comp1
     Next comp2
  Next comp1
  Range(Cells(1, 1), Cells(10, 2)).FormulaArray = x
End Sub
Où est mon erreur pour mettre des nombres différents dans les deux colonnes?