Select Case .Range("A" & i).Value
Case Is = "Histoire"
coul = RGB(255, 252, 0)
Case Is = "Français"
coul = RGB(122, 129, 255)
Case Is = "Mathématiques"
coul = RGB(255, 147, 0)
Case Is = "Anglais"
coul = RGB(115, 251, 121)
Case Else
coul = RGB(230, 184, 183)
End Select
sh.Cells(lig, col).Value = .Range("B" & i).Value
sh.Cells(lig, col).Interior.Color = coul