Je tente de t'expliquer.
1/ j'ai oublié de te dire que j'avais fait une petite modif sur ta feuille année, et tu as copier la macro dans le tien.
ligne 195 à 199, j'ai supprimer la fusion des cellules toujours lourd à gérer en macro.
j'ai donc supprimé la fusion, et déplacer les texte de la colonne 2 à la colonne 5
fincol se porte donc sur la colonne 5, elle permet de tester la fin des données
le set findcol cherche la ligne contenant le texte" nombre de personne acceuillie
donc : Set zone = .Range(.Cells(4, 2), .Cells(fincol.Row, 3)) va définir la zone concernée
J'espère être clair, conscient que c'est pas toujours facile à expliquer.
Pour la suite je regarde demain, mais passe ton fichier en expliquant ce qui ne va pas
A suivre