Re bonjour,
Finalement, j'opte pour la solution du post#8 de @sylvanu
Voici maintenant mon code simplifié
Sub TestArraySylvanu()
Dim xTablo(1 To 12)
xTablo(1) = Array(1, "Rouge", 255, 55, 86)
xTablo(2) = Array(2, "Orange", 232, 130, 93)
xTablo(3) = Array(3, "Pêche", 255, 205...