Function Progression(shOnglet As Worksheet, rgCellule As Range, sCouleur As String)
With shOnglet
Select Case sCouleur
Case "Blanc":
.rgCellule.Interior.ThemeColor = xlThemeColorDark1
Case "Orange":
.rgCellule.Interior.Color = 49407
Case "Vert":
.rgCellule.Interior.Color = 5287936
Case "Rouge":
.rgCellule.Interior.Color = 255
End Select
End With
End Function