XL 2019 Supprimer les doublons si la date est la meme VBA

Option Explicit

Sub supprimer_doublon()
    Dim tb, i As Long, d As Object
    Set d = CreateObject("scripting.dictionary")
    With Feuil1 ' à adapter'
        .Range("o:p").ClearContents 'à adapter'
        tb = .Range("a1").CurrentRegion
        For i = 1 To UBound(tb)
            d(tb(i, 1) & "|" & tb(i, 2)) = ""
        Next i
        ''''
        .[O1].Resize(d.Count) = Application.Transpose(d.Keys)    'report sur la feuille à adapter
        'éclater colonne 1 en plusieurs suivant delimiteur choisi ("|")
        .Range("O:O").TextToColumns DataType:=xlDelimited, Other:=True, OtherChar:="|"    ' à adapter
    End With
End Sub