Bonjour et merci d'avance
à l'aide d'un code je remplie automatiquement ce tableau
Nom : Capture.PNG Affichages : 500 Taille : 7,2 Ko
puis avec un code enregisré à l'aide de l'enregistreur auto je supprime les doublons sur ce tableau

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub SupDoublons()
'Supprimer doublons
Dim derlig As Long
derlig = Sheets("ANALYSE").Range("A65536").End(xlUp).Row
    Sheets("ANALYSE").Range("A1 : D" & derlig).RemoveDuplicates Columns:=Array(1, 2), _
        Header:=xlYes
ce code supprime les nouvelles valeurs et moi je cherche à supprimer les anciens doublons et conserver les nouvelles valeurs
merci bq et bonne journée