Sub VillesDoublons()
With Sheets("RESULTAT")
Application.ScreenUpdating = False
Sheets("VILLES").Cells.Copy .Cells
.[A2:F65536].Sort Key1:=.[A2], Order1:=xlAscending, Header:=xlYes 'tri sur les noms
.[G3].Formula = "=AND($A3<>$A2,$A3<>$A4)"
.[H3] = True
.[A2:F65536].AdvancedFilter xlFilterInPlace, CriteriaRange:=.[G2:G3]
.[A3:F65536].SpecialCells(xlCellTypeVisible).Delete xlUp
.[A2:F65536].AdvancedFilter xlFilterInPlace, CriteriaRange:=.[H2:H3]
.[G3:H3].ClearContents
.Activate
End With
End Sub