XL 2016 Liste avec incrémentation des doublons

Sub Tubes()
'CREATION D'UN TABLEAU SANS DOUBLON DES LONGUEUR CANNES
    Dim tabtube()
    Dim nbrsection As Byte
    Dim i As Byte
    Dim j As Byte
    Dim k As Byte
    Dim z As Byte
    Dim lig As Byte
    Dim derniereL
    nbrsection = 2
    tabtube = Array()
    lig = 20
    For i = 0 To nbrsection - 1 'autant de fois que de sections
        k = 0
        For j = 1 To tabTrv(i) 'autant de fois que de piquages
            If j > 1 Then
                For z = 0 To UBound(tabtube) 'autant de fois que de cellule dans le tableau créé
                'si le doublon existe
                    If Cells(lig, 3 + j).Value = tabtube(z)(0) Then tabtube(z)(1) = tabtube(z)(1) + 1: Exit For
                Next z
            End If
                'si le doublon n'existe pas
                ReDim Preserve tabtube(k): tabtube(k) = Array(Cells(lig, 3 + j).Value, 1): k = k + 1
        Next j
        lig = lig + 5
    Next i
    derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    Sheets("User").Cells(derniereL - 2, 3) = "Matériel pour canne de dessente"
    Worksheets("User").Cells(derniereL, 3).Resize(UBound(tabtube) + 1, 2).Value = Application.Transpose(Application.Transpose(tabtube))
End Sub