XL 2016 Vérification cellule base de données

[razorlight]

Bonjour,

Novice en macro, j'ai tenté plusieurs choses qui se sont révélées infrucutueuses.
Voici le contexte, j'ai une feuille avec un tableau regroupant un grand nombre d'informations. Sur les 6000 lignes, il y a une colonne (colonne I) où est inscrit un code.
Sur une autre feuille il y a un tableau (un référentiel) avec la liste des codes autorisés.

La macro que je cherche à créer servirait à vérifier que les informations renseignées dans la colonne I soient dans le tableau de la deuxième feuille. En cas de "condition fausse", la cellule se colorerait en rouge et dans la colonne d'à côté le terme "CODE ERRONE" s'afficherait par exemple.

Je joins l'exemple sur lequel je travaille, mais avec une macro vierge, je ne sais plus par quel bout prendre la solution.

Pourriez vous m'aider svp ?

 

[pierrejean]

Bonjour

A tester

 

[Staple1600]

Bonjour le fil, pierrejean

Ma façon de faire

Sub test()
Dim f As Worksheet, ff As Worksheet, i&
Set f = Sheets("Referentiel")
Set ff = Sheets("Principal")
Application.ScreenUpdating = False
f.Range(f.Cells(3, "B"), f.Cells(Rows.Count, "B").End(3)).Name = "CODES"
For i = 2 To ff.Cells(Rows.Count, "C").End(3).Row
If IsError(Application.Match(ff.Cells(i, "C"), [CODES], 0)) Then
ff.Cells(i, "C").Interior.Color = vbRed
ff.Cells(i, "D") = "CODE ERRONE"
End If
Next
End Sub

Pré-requis
J'ai mis en forme la feuille Referentiel
(Pas de doublons dans les codes, pas de cellule fusionnées et/ou de retour à ligne)

 

[razorlight]

Merci beaucoup Pierrejean, votre solution fonctionne !

Staple, la soution foncitonne aussi et sans modification de la mise en forme !
Merci beaucoup également !