Erreur indice dans tableau dynamique

BONJOUR

J'ai créer un tableau dynamique et je rencontre le message d'erreur suivant " erreur d'indice"

Ci dessous le code:

 'suppression des elements en double dans le tableau
Dim tab_code()
ReDim tab_code(n, UBound(tab_app))

For p = 0 To UBound(tab_app) - 1
For j = p + 1 To UBound(tab_app)
If tab_app(p) = tab_app(j) Then

tab_app(j) = tab_app(j + 1) ' C'est cette ligne qui pose pb visiblement, mais je vois pas pk
End If
Next j
Next p

Bonjour,

Quand j = UBound(tab_app), j+1 ne correspond plus à un indice...

Cordialement.