Sub Lister()
Dim a, b, c, d, e, f, g, h, lig, tablo(1 To 256, 1 To 8)
For a = 0 To 1
For b = 0 To 1
For c = 0 To 1
For d = 0 To 1
For e = 0 To 1
For f = 0 To 1
For g = 0 To 1
For h = 0 To 1
lig = lig + 1
tablo(lig, 1) = IIf(a, "Non", "Oui")
tablo(lig, 2) = IIf(b, "Non", "Oui")
tablo(lig, 3) = IIf(c, "Non", "Oui")
tablo(lig, 4) = IIf(d, "Non", "Oui")
tablo(lig, 5) = IIf(e, "Non", "Oui")
tablo(lig, 6) = IIf(f, "Non", "Oui")
tablo(lig, 7) = IIf(g, "Non", "Oui")
tablo(lig, 8) = IIf(h, "Non", "Oui")
Next
Next
Next
Next
Next
Next
Next
Next
[B3:I258] = tablo
End Sub