Résultat automatique

Bonjour à tous,

Je sollicite une nouvelle fois votre aide, j'aimerai qu'une cellule modifie une autre cellule de manière automatique. Si la note est inférieur à 10 alors la cellule sera marquée "défavorable" entre 10 et 13 "réservé" ect... pour le moment mon code c'est ça :

Sub clem()

Dim i As Long
i = Feuil1.Range("H38").Activate

        If Feuil1.Range("H38").Value >= 10 <= 13 Then Feuil1.Range("H39") = "Réservé"
       If Feuil1.Range("H38").Value < 10 Then Feuil1.Range("H39") = "Défavorable"
     If Feuil1.Range("H38").Value > 13 Then Feuil1.Range("H39") = "Favorable"

   End Sub

Il marche mais de manière non automatique ( si la note l'avis ne va pas changer à moins d'activer la macro), j'aimerai rendre ce changement automatique sans activation particulière. De meme j'aimerai ajouter des couleurs aux avis, par exemple "Défavorable" serait marqué en rouge, favorable en vert ect... J'ai essayé ça mais sans succes

If Feuil1.Range("H38").Value >= 10 <= 13 Then Feuil1.Range("H39") = "Réservé"

If Feuil1.Range("H38").Value < 10 Then Feuil1.Range("H39").Font.Color = RGB(50, 200, 100) = "Défavorable"

If Feuil1.Range("H38").Value > 13 Then Feuil1.Range("H39") = "Favorable"

Merci à tous pour votre aide

Bonjour,

Voir fichier

Cdlt

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Application.Intersect(Target, [H38]) Is Nothing Then
          Select Case Target
               Case Is <= 10
                    [H39] = "Défavorable"
                    ' couleur rouge
                    [H39].Font.ColorIndex = 3
               Case Is <= 13
                    [H39] = "Réservé"
                    ' couleur orange
                    [H39].Font.ColorIndex = 53
               Case Else
                    [H39] = "Favorable"
                    ' couleur vert
                    [H39].Font.ColorIndex = 4
          End Select
     End If
End Sub

Merci beaucoup, perfecto