Macro loops et recherche de valeur

Bonjour,

Je suis novice en macro et VBA et j'essaie d'automatiser le check de valeur dans certains cases avec plusieurs conditions.
Je suis arrivé à un code mais je ne suis pas assez doué pour le rendre "automatique" sans que je doive écrire toutes les conditions une à une, je vais appel à votre aide et votre savoir :mrgreen:

Le but est de comparer le texte se trouvant dans 1, 2 ou 3 cases (le texte peut être différent à chaque fois) à une table qui répertorie les valeurs possibles pour ces champs et de comparer si la valeur obtenue est dans la gamme ou non.
Ce n'est pas facile à expliquer comme ça, voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub checkvalidité() With Range("T5:U8") .ClearFormats End With Dim i As Integer For i = 5 To 7 If Cells(i, 20) = Range("C50") And Range("G3") <= Range("G50") Then Range(Cells(i, 20), Cells(i, 21)).Interior.Color = RGB(100, 200, 0) Cells(i, 21) = "V" End If If Cells(i, 20) = Range("C50") And Range("G3") > Range("G50") Then Range(Cells(i, 20), Cells(i, 21)).Interior.Color = RGB(255, 0, 0) Cells(i, 21) = "X" End If If Cells(i, 20) = Range("C54") And Range("G3") <= Range("G54") Then Range(Cells(i, 20), Cells(i, 21)).Interior.Color = RGB(100, 200, 0) Cells(i, 21) = "V" End If If Cells(i, 20) = Range("C54") And Range("G3") > Range("G54") Then Range(Cells(i, 20), Cells(i, 21)).Interior.Color = RGB(255, 0, 0) Cells(i, 21) = "X" End If Next End Sub
Les textes se trouvant dans les cellules T5 à T7 sont repris dans un tableau démarrant de C50 à C70, j'aimerai que la macro identifie le texte en T5 avec le correspondant dans le tableau de C50 à C70 et comparer la valeur se trouvant de G50 à G70 avec celles du tableau du dessus (analyse de labo) pour voir si la norme est respectée.
Veuillez m'excuser, j'ai du mal à décrire clairement ce que je tente de faire mais je pense que le code ci-dessous permet de comprendre ce que je tente de faire mais en plus automatique. Si quelqu'un parvient à me comprendre et m'aider ça serait top.
Je vous joins également mon fichier si cela peut vous aider à comprendre.

Merci d'avance!

Pièce jointe 577185