Ne se rajoute pas à la ligne suivante

Bonjour,

J'ai un fichier qui fonctionnait bien , j'ai voulu remplacer des TexBox par des DTPicker,

Depuis quand je fais ajouter cela ne s'ajoute pas à la ligne suivante mais remplace la première ligne.

Quelle est mon erreur?

Voici le fichier.

Merci

Bonjour

la colonne A étant vide

la la macro de validation

remplacer a par b

L = Feuil2.Range("B65536").End(xlUp).Row + 1

Bonjour,

tu te base sur la colonne A pour déterminer la première ligne vide, or cette colonne est vide, tu devrais utiliser la colonne B.

remplace cette instruction-ci

L = Feuil2.Range("A65536").End(xlUp).Row + 1

par

L = Feuil2.Range("B65536").End(xlUp).Row + 1

Bonjour à tous,

Et oui encore une erreur due au copier coller.

Merci pour vos réponse