Sub Valeur()
Dim i, cell As Range
Range("A1:M85").Select
For Each cell In Selection
Select Case cell.Value
Case "A" To "D", "H" To "M": i = 6
Case "E": i = 2
Case "F": i = 15
Case "G": i = 9
Case Else: i = 1
End Select
cell.Interior.ColorIndex = i
Next
End Sub