'======================================================================
'Changement de couleur en fonction de l'état sélectionné.
'======================================================================
Sub colormacro()
Dim i&
For i = 2 To [I65536].End(xlUp).Row '2 car les valeurs commencent à la deuxième ligne du classeur
If Cells(i, 9) = "CAS 1" Then '9 car la valeur à vérifier pour la couleur se trouve en 9 (I en horizontale)
Cells(i, 1).Resize(, 14).Interior.Color = RGB(255, 255, 255)
ElseIf Cells(i, 9) = "CAS 2" Then
Cells(i, 1).Resize(, 14).Interior.Color = RGB(238, 253, 49)
ElseIf Cells(i, 9) = "CAS 3" Then
Cells(i, 1).Resize(, 14).Interior.Color = RGB(163, 163, 163)
ElseIf Cells(i, 9) = "CAS 4" Then
Cells(i, 1).Resize(, 14).Interior.Color = RGB(218, 88, 186)
ElseIf Cells(i, 9) = "CAS 5" Then
Cells(i, 1).Resize(, 14).Interior.Color = RGB(253, 109, 23)
ElseIf Cells(i, 9) = "CAS 6" Then
Cells(i, 1).Resize(, 14).Interior.Color = RGB(255, 28, 28)
ElseIf Cells(i, 9) = "CAS 7" Then
Cells(i, 1).Resize(, 14).Interior.Color = RGB(6, 253, 37)
End If
Next
End Sub