Suppression doublons avec condition

dans mon classeur ci joint je souhaiterai supprimer les deux lignes des doublons (colonne g) à condition que les cellule correspondantes des colonnes b et c soient identiques.

le code que j'ai élaboré à l'aide d chat gpt ne marche pas.

SI quelqu'un peu y jeter un oeil.

merci d'avance.

Selon moi tu dois juste changer tes conditions.

Regarde si la macro ainsi modifiée répond à ton attente. Je l'ai déplacée dans un module, ce qui me semble plus correct.

Cordialement.

A essayer et adapter:

Sub doublons()
'
' doublons Macro

Range("A1:G24").Select
ActiveSheet.Range("$A$1:$G$24").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
), Header:=xlNo
ActiveWindow.SmallScroll Down:=-21
End Sub

Salut Kabitchou,

Pouvons-nous avoir un retour sur nos propositions ?

Cordialement.