J'ai repris la propriété des Tag, j'ai tout supprimer est tout renommé. Je me suis dis qui ne tente rien n'a rien.
Mais mon souci n'est pas réglé, car il copie tout sur la première ligne et non à la fin de la colonne alors que le code est bon. Ca va bien cherché la dernière cellule non vide depuis le bas vers le haut +1 pour descendre à la cellule vide.
DL = IIf(Cells(2, CTRL.Tag).Value = "", 2, O.Cells(Application.Rows.Count, CTRL.Tag).End(xlUp).Row + 1)