XL 2019 Recherche de Doublons sur plusieurs feuilles

[uzu1302]

Bonjour,
J'utilise cette procédure pour copier les doublons de plusieurs feuilles sur une Feuille "Ancien".
Je voudrai faire l'inverse. Que les les lignes uniques sois copiées sur une nouvelle Feuille "News".

Sub supDoublons()
Set d = CreateObject("Scripting.Dictionary")
For s = 1 To Sheets.Count - 1
For Each c In Range(Sheets(s).[a2], Sheets(s).[a65000].End(xlUp))
clé = c.Text
tmp = c & "|" & c.Offset(, 1) & "|" & c.Offset(, 2) & "|" & c.Offset(, 3) & "|" & c.Offset(, 4) & "|" & c.Offset(, 5) & "|" & c.Offset(, 6) & "|" & c.Offset(, 7)
d(clé) = tmp
Next c
Next s
I = 2
For Each c In d.keys
tmp = d(c)
a = Split(tmp, "|")
Sheets("Ancien").Cells(I, 1) = "'" & a(0)
Sheets("Ancien").Cells(I, 2) = "'" & (a(1))
Sheets("Ancien").Cells(I, 3) = "'" & (a(2))
Sheets("Ancien").Cells(I, 4) = "'" & (a(3))
Sheets("Ancien").Cells(I, 5) = "'" & (a(4))
Sheets("Ancien").Cells(I, 6) = "'" & (a(5))
Sheets("Ancien").Cells(I, 7) = (a(6))
I = I + 1
Next c
End Sub

Merci pour votre aide
Patrick