Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim coul, v, P As Range, tablo, i&, j%, couleur%, k As Byte
coul = Array(xlNone, 6, 44) 'liste des codes couleurs
v = Array([A8], [A10], [A12]) 'liste des valeurs
Set P = [A1:Y37]
tablo = P.Formula 'matrice, plus rapide
For i = 7 To UBound(tablo)
For j = 3 To UBound(tablo, 2) Step 2
couleur = P(i, j).Interior.ColorIndex
tablo(i, j) = ""
For k = 0 To UBound(coul)
If coul(k) = couleur Then tablo(i, j) = v(k): Exit For
Next k, j, i
P = tablo 'restitution
End Sub