UBound L'indice n'appartient pas à la sélection

Bonjour,

J''ai fait un Sub pour supprimer les lignes qui ont des doublons dans une colonne spécifique.

Je ne comprends pas l'erreur que l'on me renvoi à UBound(DuplicateRowArray, 2):

' L'indice n'est pas dans la sélection.

J'ai mis une pièce jointe:

Merci d'avance pour le coup de main

bonsoir

UBound(DuplicateRowArray, 2):

le dimensionnement de l'array duplicaterowarray est dépendant d'un if. si la condition du if n'est pas remplie, le tableau n'est pas dimensionné. et donc VBA ne sait pas déterminer la valeur de UBound(DuplicateRowArray, 2):