Sub ColorationNuméro()
Dim Cell As Range
Dim CI As Byte
For Each Cell In Range('D28:AA39')
Select Case Cell.Value
Case '1': CI = 43: Case '2a': CI = 44: Case '2b': CI = 44
Case '3': CI = 45: Case '4': CI = 46: Case '5a': CI = 39
Case '5b': CI = 39: Case '6a': CI = 48: Case '6b': CI = 48
Case '7a': CI = 41: Case '7b': CI = 41: Case '8': CI = 50
Case '9a': CI = 42: Case '9b': CI = 42: Case '10': CI = 18
Case '11': CI = 22: Case '12a': CI = 24: Case '12b': CI = 24
Case '13a': CI = 6: Case '13b': CI = 6: Case '14a': CI = 40
Case '14b': CI = 40: Case '15a': CI = 35: Case '15b': CI = 35
Case '16a': CI = 15: Case '16b': CI = 15: Case '17a': CI = 3
Case '17b': CI = 3: Case '': CI = 2:
Case '18': CI = 43: Case '19a': CI = 44: Case '19b': CI = 44
Case '20': CI = 45: Case '21': CI = 46: Case '22a': CI = 39
Case '22b': CI = 39: Case '23a': CI = 48: Case '23b': CI = 48
Case '24a': CI = 41: Case '24b': CI = 41: Case '25': CI = 50
Case '26a': CI = 42: Case '26b': CI = 42: Case '27': CI = 18
Case '28': CI = 22: Case '29a': CI = 24: Case '29b': CI = 24
Case '30a': CI = 6: Case '30b': CI = 6: Case '31a': CI = 40
Case '31b': CI = 40: Case '32a': CI = 35: Case '32b': CI = 35
Case '33a': CI = 15: Case '33b': CI = 15: Case '34a': CI = 3
Case '34b': CI = 3: Case '': CI = 2:
Case '35': CI = 43: Case '36a': CI = 44: Case '36b': CI = 44
Case '37': CI = 45: Case '38': CI = 46: Case '39a': CI = 39
Case '39b': CI = 39: Case '40a': CI = 48: Case '40b': CI = 48
Case '41a': CI = 41: Case '41b': CI = 41: Case '42': CI = 50
Case '43a': CI = 42: Case '43b': CI = 42: Case '44': CI = 18
Case '45': CI = 22: Case '46a': CI = 24: Case '46b': CI = 24
Case '47a': CI = 6: Case '47b': CI = 6: Case '48a': CI = 40
Case '48b': CI = 40: Case '49a': CI = 35: Case '49b': CI = 35
Case '50a': CI = 27: Case '50b': CI = 28: Case '51a': CI = 3
Case '51b': CI = 3: Case '': CI = 2:
End Select
With Cell.Interior
.ColorIndex = CI
.Pattern = xlSolid
End With
Next
End Sub
[quote]
Merci