XL 2013 Supprimer les lignes en double

[driss Kor]

Bonjour,

Je travail sur un fichier avec plusieurs lignes "+1000" et plusieurs colonnes "23", je sollicite votre aide pour pouvoir supprimer les lignes qui se répètent par VBA.
on peut trouver sur la même colonne A par exemple des doublons mais pas sur la colonne B, je veux supprimer uniquement les lignes avec les data qui se répète sur toutes les colonnes.

Merci pour votre Aide.

 

[vgendron]

Hello
un début de réponse en PJ: clique sur le bouton

 

[vgendron]

PS: cela suppose que ton tableau est déjà trié et que les lignes en doublons sont bien l'une sous l'autre

 

[driss Kor]

Bonjour Vgendron,

Merci beaucoup pour ton aide, le tableau n'est pas trié, mais je vais le trié avant d'exécuter la macro.

Merci pour votre support.

 

[mapomme]

Bonsoir à tous,

Un autre essai (tableau trié ou non)

Sub SansDoublon()
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      Intersect(.Columns(1).Resize(, 10), .Range("a1").CurrentRegion).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlYes
   End With
End Sub