Private Sub Workbook_Open()
Dim Montab, i
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Couleurs")
Montab = .Range("A1:A17")
For i = LBound(Montab) To UBound(Montab)
Dico(Montab(i, 1)) = .Cells(i, 1).Interior.ColorIndex
Next
End With
End Sub