À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
