Bonjour ThierryH
Il faut juste modifier le tableau des cellules à utiliser, comme ceci
' Tableau des cellules à archiver
TabCel = Split("D7,D8,D9,D10,A14,B14,A#,B#,C#,D#,E#,E#1,E#2,E#3,E#4", ",")
De D7 à B14 c'est l'adressage directe des cellules
De A# à E#, ce sont les cellules avec le # pour les lignes à prendre
De E#1 à E#4, ce sont les cellules de la colonne E, # représente la dernière ligne du corps de la facture, 1 à 4 les lignes en dessous
J'espère que ce sera plus clair avec ces explications
A tester, mais ça devrait être bon