Private Sub ComboBox1_Change()
Set c = Range("B38:S42").Find(ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
Selection.Interior.ColorIndex = c.Offset(0, -1).Interior.ColorIndex
End Sub
Private Sub Worksheet_Activate()
ComboBox1.Clear
For Each cel In Range("B38:S42")
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel
End Sub
Private Sub Workbook_Open()
Sheets("Feuil2").Select
Sheets("Feuil1").Select
End Sub