le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
DernièreLigne = Cells(65535,NoColonne).End(xlUp).Row
ne fonctionne pas dans mon cas car il donne également la dernière ligne contenant des formules ?
Bonne journée
jSaïd