Macro suppression doublons

Option Explicit

Sub selectionner_minimaxi()
Dim derlig As Long, cptr As Long, nbre As Long, cptr_tablo As Long, nbre_ref As Long
Dim ref As Single
Dim dico_ref As Object
Dim tablo()

'préparation
Application.ScreenUpdating = False
derlig = Range("A65536").End(xlUp).Row
Set dico_ref = CreateObject("Scripting.Dictionary")
Sheets(2).Range("A2:C65536").ClearContents

Sheets(1).Activate
    'trie les nombresx puis les datesy dans l'orde croisssant
'   ==> la datey la + basse est sur la m^ ligne après changement de nombre
    derlig = Range("A65536").End(xlUp).Row
    Range("A1:C" & derlig).Sort Key1:=Range("A2"), Key2:=Range("B2"), header:=xlGuess
    
'compte le nombre de valeurs uniques
For cptr = 2 To derlig
    ref = Cells(cptr, 1)
    If Not dico_ref.Exists(ref) Then
            dico_ref.Add ref, ref
    End If
Next
 nbre = dico_ref.Count
Set dico_ref = Nothing
ReDim tablo(nbre, 2)

Set dico_ref = CreateObject("Scripting.Dictionary")
For cptr = 2 To derlig
    ref = Cells(cptr, 1)
    If Not dico_ref.Exists(ref) Then
            dico_ref.Add ref, ref
        'alimente le tableau nombrex, datey, datez
            tablo(cptr_tablo, 0) = ref
            tablo(cptr_tablo, 1) = Cells(cptr, 2) 'datey
            'recherche le nombre de ref pour trouver datez maxi
                nbre_ref = Application.CountIf(Range("A2:A" & derlig), ref)
           '    affecte le tableau de la datez maxi
                tablo(cptr_tablo, 2) = Application.Max(Range(Cells(cptr, 3), Cells(nbre_ref + cptr - 1, 3)))
                
            'incrémente le compteur tablo
            cptr_tablo = cptr_tablo + 1
    End If
Next

Sheets(2).Activate
Range("A2").Resize(nbre, 3) = (tablo)
Columns("A:A").NumberFormat = "General"
Columns("B:C").NumberFormat = "dd/mm/yy;@"
    
End Sub