Sub A_Defaut_De_Supprimer_Je_Remplis_1_peu_plus_vite(Optional Des_lignes_et_des_lignes)
Dim vals, n&, i&, x
vals = Array(Array(11, 12), Array(23, 27), Array(111, 111), Array(327, 121), Array(55, 133), Array(1600, 727), Array(111, 111))
Dim t()
Application.ScreenUpdating = False
Rows("2:100000") = ""
n = InputBox("10, 100, 1000, 10000 ou 100000 ?", "NE SAISIR QUE DES CHIFFRES (1 à 5)", 1) * 1
If n > 5 Then n = 5
nn = 10 ^ n
Randomize 1600
ReDim t(1 To nn, 1 To 2)
For i = 1 To nn
x = Application.RandBetween(1, 6)
t(i, 1) = vals(x)(0)
t(i, 2) = vals(x)(1)
Next
Cells(2, 1).Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub