Supprimer cellules doublons

Bonjour ,

Je souhaite supprimer les cellules doublons et garder la les lignes (par ce que il y'a d'autre cellules dans la même ligne qui ne se répètent pas ) , ci joint le fichier pour mieux comprendre , Merci pour votre aide . Bonne fêtes !

Bonjour

Ton fichier en retour

Le code est dans le Module1

Cordialement

Excellent travail c'est exactement ce que je souhaite merci cela fonctionne pour un nombre limité de lignes , mais quand je dépasse je pense plus de 300 un message s'affiche Dépassement de capacité ! merci encore une fois et bonne fête .

Bonjour

Remplace sur la ligne 7 de la Macro

Dim MaCellule As Object, i As Byte

par

Dim MaCellule As Object, i As Integer

Car la variable déclarée en Byte s'arrête à 255

Cordialement

c'est résolu merci , mais est ce que tu peux stp ajouter des commentaire pour que je puisse comprendre mieux , j'ai essayé de comprendre mais c'est un peu flou merci d'avance .

Bonjour

Le Code commenté

Sub Efface_Doublons()
'Insere une colonne avant la colonne E
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight
    ' Selectionne une plage de D2 à la derniére ligne remplie de la colonne D
    ' et décale cette selection d'une colonne vers la droite (de D, on passe à E)
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Offset(, 1).Select
    ' rempli cette selection avec la formule en E2 incrémentée;=SI(NB.SI($A$1:A2;A2)>1;1;"")
    Selection.FormulaR1C1 = "=IF(COUNTIF(R1C1:RC[-4],RC[-4])>1,1,"""")"
    'Declaration des variables
    Dim MaCellule As Object, i As Integer
    'Parcours la plage sélectionnée
For Each MaCellule In Selection
' Définition de la variable i (No de ligne)
    i = MaCellule.Row
    'Si la cellule est ègale à 1
If MaCellule = 1 Then
'Sélectionne sur la ligne correspondante les cellules en colonne A et A décalé d'une colonne (soit A:B)
' et efface les données de ces 2 cellules
Range("A" & i, Range("A" & i).Offset(0, 1)).ClearContents
End If
'Passe à la cellule suivante et recommence
Next MaCellule
'Selectionne la colonne E
    Columns("E:E").Select
    ' Supprime cette colonne selectionnée
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub

Cordialement

Merci bien expliquer , c'est très gentil de ta part , excellente journée et bonne fête