Supprimer les cellules en double d'une autre feuille

MJ13 à dit:

Sur Xl2007, cela devrait fonctionner (\Données \Supprimer les doublons) 😕

Cliquez pour agrandir...

Sub test()
Dim I As Long, Cellule As Range
With Sheets("Feuil1")
For I = .Range("A35000").End(xlUp) To 1 Step -1
Set Cellule = Sheets("Feuil2").Range("A1:A35000").Find(.Range("A" & I), lookat:=xlWhole)
If Not Cellule Is Nothing Then Rows(I).Delete
Next I
End With
End Sub

Non Michel, pas avec une sélection sur 2 feuilles à la fois 🙄... Enfin je ne pense pas 😛...

Cliquez pour agrandir...

MJ13 à dit:

Mais pourquoi se compliquer la vie 😉

Cliquez pour agrandir...