Bonjour, quelqu'un pourrait il me dire ou je me plante

Ce que je cherche à faire

feuil2
en ligne 6 de mon tableau j'ai des lettres qui s'affichent dans les cellules

feuil1
en b47 j'ai une valeur qui ( ne restera pas fixe )

jaimerai que lorsqu'il voit en ligne six la lettre "L" dans mon exemple en ligne 130 de la feuil2 il regarde le chiffre si celui ci est

< a b47 de la feuil1 alors une couleur
> a b47 de la feuil1 alors une autre couleur

avec mon code il reconnait bien les "L" me colorie bien les cases de la ligne 130 de la colonne où il a trouvé le "L" mais, il ne sais pas interpréter si c'est supérieur ou inférieur ça reste toujours au rouge.

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
For I = 1 To 31
    If Feuil2.Cells(6, 26 + I).Value = "L" Then
        If Feuil2.Cells(130, 26 + I).Value > Feuil1.Range("B47").Value Then          '------------bleu
            Feuil2.Cells(130, 26 + I).Interior.Color = RGB(0, 0, 255)
 
 
        ElseIf Feuil2.Cells(130, 26 + I).Value < Feuil1.Range("B47").Value Then      '------------rouge
            Feuil2.Cells(130, 26 + I).Interior.Color = RGB(255, 0, 0)
            End If
    End If
 
 
 
 
Next I
End Sub