Coloration d'un onglet selon valeur.

Private Sub Worksheet_Calculate()
    With ActiveSheet.Tab
        .TintAndShade = 0
        If Range("AX9").Value >= 1 Then
            .Color = 5296274
        Else
            .Color = 255
        End If
    End With
End Sub

Private Sub Worksheet_Calculate()
    With Range("AX9").Parent.Tab
        .TintAndShade = 0
        If Range("AX9").Value >= 1 Then
            .Color = 5296274
        Else
            .Color = 255
        End If
    End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = IIf(Sh.[AX9] >= 1, 4, 3) 
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsEmpty(Sh.[AX9]) Then
Sh.Tab.ColorIndex = Switch(Sh.[AX9] >= 1, 4, Sh.[AX9] = 0, 3)
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsEmpty(Sh.[AX9]) Then
Sh.Tab.ColorIndex = 3 - (Sh.[AX9] >= 1)
End If
End Sub

Private Sub Worksheet_Calculate()
    With Range("AX9").Parent.Tab
        .TintAndShade = 0
        If Range("AX9").Value =< -5 Then
            .Color = 5296274
        Else
             If Range("AX9").Value < -4 And < 0 Then
            .Color = 49407
             End If
        Else
             .Color = 255
        End If
    End With
End Sub

    With Range("AX9").Parent.Tab
        .TintAndShade = 0
        If Range("AX9").Value <= -5 Then
            .Color = 5296274
        ElseIf Range("AX9").Value > -5 And Range("AX9").Value < 0 Then
            .Color = 49407
        Else
             .Color = 255
        End If
    End With

Private Sub Worksheet_Calculate()
       With Range("AX9").Parent.Tab
         .TintAndShade = 0
         If Range("AX9").Value <= -0.05 And Range("AX9").Value >= 0 Then
             .Color = 5296274
         ElseIf Range("AX9").Value > -0.05 And Range("AX9").Value < 0 Then
             .Color = 49407
         Else
              .Color = 255
         End If
     End With
End Sub