Suppression de doublons

Bonjour le forum,

Après recherche je n'ai pas trouvé de réponses.

Je vous explique :

J'ai un tableau dans la feuille 1 (100 lignes), j'ai un autre tableau de même composition mais avec + de lignes (300 lignes) dans la feuille 2.

J'ai une macro qui permet d'identifier dans le tableau de la feuille 2 les lignes identiques au tableau de la feuille 1.

Là ou je bloque, je n'arrive pas à compléter la macro pour pouvoir supprimer les lignes identifiées dans la feuille 2

Je vous joins le code utilisé

Sub Compare()
Dim Range1 As Range, Range2 As Range, Rng1 As Range, Rng2 As Range, outRng As Range
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Range1 :", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng1 In Range1
    xValue = Rng1.Value
    For Each Rng2 In Range2
        If xValue = Rng2.Value Then
            If outRng Is Nothing Then
                Set outRng = Rng1
            Else
                Set outRng = Application.Union(outRng, Rng1)
            End If
        End If
    Next
Next
outRng.Select
Application.ScreenUpdating = True
End Sub

Peut être faut il créer une autre macro de suppression ?

Merci de votre aide

Bonne journée

Bonjour pat17,

En fin de code, cette ligne devrait suffire :

If Not outRng Is Nothing Then outRng.EntireRow.Delete

klin89

Bonjour Klin89 et merci pour ta réponse.

Cela fonctionne

Bonne journée à tous