Salut tout le monde,

j'ai besoin de votre aide pour une macro de comparaison que j'ai faite mais qui bloque. Mon besoin est simplement de comparer la colonne a et b de la feuille "Feuil2". Il faut verifier que toutes les données de la colonne b soit existante dans la colonne. S'il y a une donnée dans la colonne b qui n'existe pas dans la colonne a, on note cette donnée de la colonne b en coloriant la cellule.

Voici mon code mais j'ai erreur lors de ma deuxieme condition if. Cela dit : Rin-time error "1004" : Application-defined or object defined error :
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
Sub Noter_Transit_Inconnu()
With Worksheets("Feuil2").Range("a:a")
            For n = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            mavar = Worksheets("Feuil2").Range("b" & n)
            Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
          ' eviter une erreur si c.row ne retourne pas de valeur
            If Not c Is Nothing Then
            ligne = c.Row
            End If
            If Worksheets("Feuil2").Range("b" & n).Value = Worksheets("Feuil2").Range("a" & ligne) Then
            Sheet2.Range("b" & n).Interior.ColorIndex = 6
            End If
            Next
End With
End Sub
Merci de votre aide

Voici un petit modèle de quoi ressemble ma feuil2 :
Transit a | Transit b
12345 23456
23478 23478
23456 11111
22222 33333
55555 22222
77777 77777
33333 99999

On remarque ici que les données 11111 et 99999 doivent etre en jaune vu qu'elles n'existent pas dans la colonne a.