Problem calculation array VBA

Bonjour,
J'ai un problem avec le code pour l'array. Alors j'associe les valuers de la feuille à un flux(). Apres je veux supprimer les doublons dans ce flux. Le problem est que quand je calcule j = i - 1 il n'execute pas cette operation. Je ne comprends pas, pourqoui il ne la fait pas.

Option base 1
k = 0
For j = 2 To lastRow2
    If sheet2.Cells(j, 2) = "DIV" Then
        For i = 2 To lastRow1
            If sheet2.Cells(j, 1) = sheet1.Cells(i, 2) Then
                sheet1.Cells(i, 2).Font.ColorIndex = 3
                k = k + 1
                ReDim Preserve flux(1 To k)
                flux(k) = sheet2.Cells(j, 3).Value
                           
                End If
        Next i
    End If
 Next j
 

'supprimer des doublons de flux avec les emails
For i = k To 2 Step -1
    If flux(i) = flux(i - 1) Then
        j = i - 1
        For j = i - 1 To k
            flux(j) = flux(j + 1)
        Next j
        k = k - 1
        ReDim Preserve flux(1 To k)
    End If
Next i

Merci pour toutes les observaltions eventuelles.