Bonjour Mango19
Il serait bien d'indiquer que vous avez une fenêtre de débogage
Donc lorsque l'on clique dessus, c'est cette ligne qui se met en jaune
Si vous mettez votre curseur sur la variable tableau, vous avez un beau message
Vous faite un
ReDim newtbU(0 To UBound(tbU, 1), 1 To 9)
Et vous mettez l'indice 14 !?
newtbU(k, 14) = IIf(tbU(i, colRemplacePar) <> "", tbU(i, colRemplacePar), "A remplacer !") 'remplacé par
A+