Macro mise en forme plusieurs conditions

Sub test()
'je souhaiterai que dans une plage de A4 à A324 :
'-si la valeur est "Abs" alors que la cellule devienne grise
'-si la valeur est "" alors aucune remplissage
'-si la valeur est inférieure 0.3 alors la cellule est verte
'-si la valeur est comprise entre 0.3 et 0.59 alors la cellule est orange
'- et si la valeur est supérieure à 0.59 alors la cellule est vide.
Dim c As Range, plg As Range
Set plg = [A4:A324]
For Each c In plg
If Not IsEmpty(c) Then
Select Case c.Value
Case Is = "Abs"
c.Interior.ColorIndex = 11
Case Is < 0.3
c.Interior.ColorIndex = 22
Case 0.3 To 0.59
c.Interior.ColorIndex = 33
Case Is > 0.59
c.ClearContents
End Select
End If
Next c
End Sub

Sub MacroAbs()
Range("B4:B400").Select
Dim lacellule As Range
For Each lacellule In Selection
couleurderemplissage = lacellule
Next lacellule
Range("B4:B400").Select
Range("B4").Activate
'
End Sub

Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
Select Case lacellule.Value

    Case ""
    indexcouleur = xlColorIndexNone
    Case "Abs"
    Selection.FormatConditions.Delete
    indexcouleur = 15
    Case Is < 0.03
    indexcouleur = 4
    Case Is >= 0.05
    indexcouleur = 3
    Case 0.03 To 0.049
    indexcouleur = 46
        
    
End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property

Sub MacroAbs()
Dim lacellule As Range
For Each lacellule In Range("B4:B400")
couleurderemplissage = lacellule
Next lacellule
End Sub