Merci Banzai, je vais étudier tout ça,
Banzai64 a écrit :
C'est pour cela que l'on demande un fichier anonymisé ayant la même structure que le fichier original, cela facilite la transition
Le fichier joint a la fin même structure excepté le fait que l'original commence en A8.
Et comme entre les lignes 1 et 7 il y a pas mal de cellules fusionnées... Je suppose que ça devait posé des problèmes
For J = 8 To Range("A" & Rows.Count).End(xlUp).Row
Avec cette modification c'est parfait.