Bonjour
même code que le dernier proposé sauf pour ligne :
.Range("A65536").End(xlUp).Row + 1
que je change en :
.Range("A"& .Rows.Count ).End(xlUp).Row + 1
sachant qu'une feuille excel (selon version) peut contenir plus que 65536 ligne et supposant que power à plus de 65536 inscription
Merci !