Bonjour à tous

dans la macro suivante que j'ai trouvé sur le net, j'ai rajouté "On error GoTo 1" car lorsque la liste en colonne A est égale à la liste en colonne B, un message d'erreur apparaît.
J'ai essayé d'ajouter avant de sortir de la macro un MgsBox "blablabla" en vain.
Quelqu'un peut-il me aider s'il vous plait?
merci d'avance.
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
16
17
18
19
20
21
Sub Liste2_Liste1()
 
On Error GoTo 1
 
  a = Range("A1:A" & [A65000].End(xlUp).Row)
  Set MaListe1 = CreateObject("Scripting.Dictionary")
  For Each c In a
   MaListe1(c) = ""
  Next c
  b = Range("B1:B" & [B65000].End(xlUp).Row)
  Set MaListe2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If Not MaListe1.exists(c) Then MaListe2(c) = ""
  Next c
 
 
   [C1].Resize(MaListe2.Count, 1) = Application.Transpose(MaListe2.keys)
 
1  Exit Sub
 
End Sub