[COLOR="DarkSlateGray"][B]Sub toto()
Dim CD, SO, i As Long, j As Long, k As Long, l As Long
CD = Array(4, _
Array( _
Array(26, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"), _
Array(10, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")), _
Array( _
Array(26, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"), _
Array(26, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")), _
Array( _
Array(10, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"), _
Array(10, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")), _
Array( _
Array(10, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"), _
Array(26, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")))
ReDim SO(1 To 1, 1 To 1)
For i = 1 To CD(0)
For j = 1 To CD(i)(0)(0)
For k = 1 To CD(i)(1)(0)
l = l + 1
ReDim Preserve SO(1 To 1, 1 To l)
SO(1, l) = "'" & CD(i)(0)(j) & CD(i)(1)(k)
Next k
Next j
Next i
Range("A2").Resize(l, 1).Value = WorksheetFunction.Transpose(SO)
End Sub[/B][/COLOR]