Public Sub prcforme()
Dim i As Integer
With Sheets("BDD")
For i = Range("A5000").End(xlUp).Row To 2
If Cells(i, 1).Interior.ColorIndex = 3 Then
Select Case (Cells(i, 11).Value)
Case Is = "7, 5"
Cells(i, 17).Interior.ColorIndex = 4
Case Is = "15"
Cells(i, 17).Interior.ColorIndex = 6
Case Is = "22, 5"
Cells(i, 17).Interior.ColorIndex = 3
End Select
End If
Next i
End With
End Sub