Suppression doublons conditionnée

Bonjour à tous,

J'ai fouillé sur les topics mais je n'ai pas trouvé mon bonheur car je ne souhaite pas supprimer mes doublons comportant un chiffre (majorité des macros que j'ai vu).

Pourtant, mon besoin est assez simple :

-> Comparer les valeurs en colonne BG de l'onglet "Extract - STT"

-> Si doublons détectés, vérifier les valeurs des lignes de doublon détectés en colonne BH (colonne au format Nombre, donnée en format 90.00, 50.00 etc...)

-> Conserver celui qui a la valeur en colonne BH la plus élevé (90.00 > 50.00) et supprimer entièrement l'autre ligne puis redimensionner le tableau.

Voilou, j'ai pas de fichier à vous exporter sous la main (données du travail...).

Si vous avez en tête un petit code, je suis preneur !

Merci à vous :)

Bonjour

A adapter bien sûr :

Sub supprimeDoublons()
  Dim tb As ListObject
  Dim tb1(), tb2()
  Dim dico As Object, cle
  Dim i!

  Set dico = CreateObject("Scripting.Dictionary")
  Set tb = Sheets("Feuil1").ListObjects("Tableau1")
  tb1 = Range("Tableau1").Value2
  For i = 1 To UBound(tb1)
    If Not dico.exists(tb1(i, 1)) Then
      dico(tb1(i, 1)) = Array(i, tb1(i, 3), tb1(i, 1))
    Else
      If tb1(i, 3) > dico(tb1(i, 1))(1) Then dico(tb1(i, 1)) = Array(i, tb1(i, 3), tb1(i, 1))
    End If
  Next i
  tb2 = dico.items
  dico.RemoveAll
  For i = 0 To UBound(tb2)
    dico(tb2(i)(2)) = tb2(i)(0)
  Next i
  For i = tb.ListRows.Count To 1 Step -1
  Range(tb).Rows(i).Select
    If dico.exists(Range(tb).Rows(i).Columns(1).Value2) And i <> dico(Range(tb).Rows(i).Columns(1).Value2) Then Range(tb).Rows(i).Delete
  Next i
End Sub