Bonjour,
Curiosité ...
Dans le code de tes feuilles, au début, tu détermines J = (Target.Row), puis dans l'écriture, tu continues d'écrire Target.Row au lieu de J.
Pour l'erreur, je ne sais pas, je n'en ai pas.
Au début de la macro "Copier_DSN", ajoute Application.ScreenUpdating = False
pour accélérer l'exécution. Inutile de réactiver à la fin, la réactivation est automatique à la fin de l'exécution.
Toujours dans "Copier_DSN", j'écrirais
Range("A2:T" & ActiveSheet.UsedRange.Rows.Count).ClearContents
pour limiter le nombre de lignes au lieu de
Range("A2:T" & Rows.Count).ClearContents
ric