Bonjour,
Cela est possible par macro dans le code de ta feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F11")) Is Nothing Then
If Range("F11") >= 3 Then
With ActiveWorkbook.Sheets("Feuil1").Tab
.Color = 5287936
.TintAndShade = 0
End With
Else
If Range("F11") < 3 And Range("F11") > 0 Then
With ActiveWorkbook.Sheets("Feuil1").Tab
.Color = 255
.TintAndShade = 0
End With
If Range("F11") = "" Then
With ActiveWorkbook.Sheets("Feuil1").Tab
.ThemeColor = xlThemeColorDark2
.TintAndShade = -9.99786370433668E-02
End With
End If
End If
End If
End If
End Sub