Sub Macro1()
Sheets("Planning présence").Select
Dim cellule As Range
Application.ScreenUpdating = False
For Each cellule In Range("D11:z135,D141:X266")
Select Case UCase(cellule.Value)
Case Is = "M"
cellule.Interior.ColorIndex = 36
Case Is = "S"
cellule.Interior.ColorIndex = 35
Case Is = "N"
cellule.Interior.ColorIndex = 37
Case Is = "J"
cellule.Interior.ColorIndex = 2
Case Is = "NON"
cellule.Interior.ColorIndex = 15
Case Is = "STOP"
cellule.Interior.ColorIndex = 3
Case Is = 0
cellule.Interior.ColorIndex = 2
Case Is > 1
cellule.Interior.ColorIndex = 2
Case Else
End Select
Next
ActiveSheet.Protect
End Sub