Option Explicit
Sub test()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim lig As Long
lig = 1
For i = -1 To 1
For j = -1 To 1
For k = -1 To 1
For l = -1 To 1
Cells(lig, 1).Resize(1, 4) = Array(i, j, k, l)
lig = lig + 1
Next l
Next k
Next j
Next i
End Sub
Option Explicit
Sub test()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, o As Integer, p As Integer
Dim q As Integer, r As Integer, s As Integer, t As Integer
Dim lig As Long
lig = 1
For i = 0 To 1
For j = 0 To 1
For k = 0 To 1
For l = 0 To 1
For m = 0 To 1
For n = 0 To 1
For o = 0 To 1
For p = 0 To 1
For q = 0 To 1
For r = 0 To 1
For s = 0 To 1
For t = 0 To 1
Cells(lig, 1).Resize(1, 12) = Array(i, j, k, l, m, n, o, p, q, r, s, t)
lig = lig + 1
Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Sub