Extraire la différence entre deux listes sur une autre page.

=SI(LIGNES($1:1)<=SOMME(NB.SI(D$11:D$34;B$11:B$34));INDEX(B$11:B$34;PETITE.VALEUR(SI(NB.SI(D$11:D$34;B$11:B$34)=0;LIGNE(INDIRECT("1:"&LIGNES(B$11:B$34))));LIGNES($1:1)));"")

Sub Extract()
Dim c As Range, c1 As Range, d As Range
Set d = Feuil1.Range("G11") 'Adresse de la liste d'arrivée (à adapter)
For Each c In [ListeA]
  Set c1 = [ListeB].Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
  If c1 Is Nothing Then
    d = c
    Set d = d.Offset(1, 0)
  End If
Next c
For Each c In [ListeB]
  Set c1 = [ListeA].Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
  If c1 Is Nothing Then
    Set c1 = d.EntireColumn.Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
    If c1 Is Nothing Then
      d = c
      Set d = d.Offset(1, 0)
    End If
  End If
Next c
End Sub

Sub Liste1_Liste2()
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range("D11:D" & [D65000].End(xlUp).Row)
    MonDico1(c.Value) = ""
  Next c
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range("B11:B" & [B65000].End(xlUp).Row)
    If Not MonDico1.exists(c.Value) Then MonDico2(c.Value) = ""
  Next c
  [G11].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub