XL 2021 recherche doublons dans colonne puis suppression des lignes

[ftpo69]

Bonjour à toutes et tous.
J'ai des fichiers avec de nombreuses lignes, où j'ai des données en doublons dans une colonne.
Actuellement, je recherche ces doublons en procédant à une mise en forme conditionnelle des doublons, puis en triant cette colonne par couleur.
Ensuite, je sélectionne les lignes en couleur où sont les doublons et j'utilise la fonction suppression des doublons, pour éliminer les lignes contenant les valeurs en double.
Si une ligne est en doublon 1, 2 ou plusieurs fois, je souhaite garder la première ligne.
Pour finir je procède à un tri de tout mon tableau pour supprimer les lignes devenues vide.
J'ai illustré cela dans le fichier joint.
Cette méthode est un peu longue et fastidieuse.
Y'a t-il une macro qui rendrait cela automatique?
Merci de votre aide.

 

[sylvanu]

Bonsoir ftpo,
Pourquoi passer par une MFC pour déceler les doublons ?
Pourquoi ne pas simplement supprimer les doublons de toute la colonne directement, cela donne le même résultat :

 

[ftpo69]

Bonsoir Sylvanu.
Je vous remercie pour votre réponse. En effet, cela va me permettre de clarifier ma demande.
Dans la colonne où se situe mes doublons, il y'a des cellules vides. Si je procède comme vous me l'indiquez, je vais supprimer les lignes où se situe les cellules vides.
Je ne peux donc pas utiliser cette méthode.
J'ai modifié mon fichier exemple pour l'illustrer.
Merci.

 

[Phil69970]

Bonjour à tous

Et bien tu vais comme ceci en 5 secondes

Merci de ton retour

 

[sylvanu]

Bonjour Ftpo, Phil,
Et si vous t tenaez, un macro VBA qui fait exactement pareil que Phil :

Sub SuppDoublons()
    Application.ScreenUpdating = False
    ActiveSheet.Range("A8:D" & [A50000].End(xlUp).Row). _
    RemoveDuplicates Columns:=Array(2, 4), Header:=xlYes
End Sub

 

[ftpo69]

Bonjour.
Merci beaucoup. Cela me permettra de l'intégrer à une macro en cours.
Bon weekend de Pâques à vous.