Bonjour à tous,

J'ai créé un code pour contrôler qu'une liste de valeur (colonne O) n'appartient pas à une autre liste de valeur (Colonne T).

Sub CorrectionTreso()


'Définition variables vérification code agent
Dim Tiers As Range 'Code tiers
Dim Exclu As Range 'Code tiers exclus
Dim AGENT As Variant 'Code agent à vérifier
Dim TiersAgent As Variant 'Code agent correcte


'Définition des feuilles
Dim ShCT As Worksheet


Set ShCT = Worksheets("Correction_TRESO")


Set Exclu = ShCT.Range("t2", Range("t1048576").End(xlUp))


'Recherche de valeur
For Each Tiers In ShCT.Range("o6", Range("o1048576").End(xlUp)).Cells


'Valeur agent à vérifier
Set AGENT = Tiers.Offset(0, -2)
'Valeur agent du référentiel
Set TiersAgent = Tiers.Offset(0, 1)

'Contrôle des exclusions
If Tiers <> Exclu Then
'Condition Agent
If AGENT <> TiersAgent Then
Tiers.Offset(0, -2).Cells = TiersAgent
Tiers.Offset(0, -1).Cells = TiersAgent
Tiers.Offset(0, -2).Interior.ColorIndex = 24
Tiers.Offset(0, -1).Interior.ColorIndex = 24
End If
End If

Next Tiers


'Call TransfertTreso


End Sub

Je ne comprends pas pourquoi elle bloque au niveau de la comparaison O et T.

Je vous remercie d'avance pour votre aide