Identifier des doublons à chaque changement de plage

Bonjour,

J'ai créé une macro afin d'identifier en couleur les montants en doublon dans la colonne J et la colonne K.

Voici le code :

Sub TEST1()
  Set d1 = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  Set plage1 = Range("J1", [J1000000].End(xlUp))
  Set plage2 = Range("K1", [K1000000].End(xlUp))
    [A:B].Interior.ColorIndex = xlNone
  For Each c In plage1
    If c <> "" Then d1(c.Value) = ""
  Next c
  For Each c In plage2
    If d1.exists(c.Value) Then c.Interior.ColorIndex = 15
    If c <> "" Then d2(c.Value) = ""
  Next c
  For Each c In plage1
    If d2.exists(c.Value) Then c.Interior.ColorIndex = 15
  Next c
End Sub

Tout fonctionne sauf que :

En colonne B et en colonne C j'ai des suites de valeur (par exemple de la plage B2 à C18 les valeurs seront respectivement 45 et ATFD et de la plage B19 à C32 les valeurs seront respectivement 46 et AGTH.

Je souhaiterai modifier le code vba ci dessus afin qu'il s’exécute à chaque changement de plage.

Aujourd'hui il se fait sur la totalité du fichier.

Merci d'avance...