Microsoft 365 Supprimer une valeur si doublons

Sub SupDoublon()
Dim tablo() As Variant
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    tablo = .Range("A2:C" & fin).Value
    For i = LBound(tablo, 1) To UBound(tablo, 1) - 1
        Code = tablo(i, 1)
        If tablo(i, 2) = tablo(i + 1, 2) Then
            tablo(i + 1, 1) = Code
        End If
    Next i
    .Range("A2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End With
End Sub