Dans le fichier, le code transfert les données d'un onglet à un autre. Il va bien mais il y a des données qui ne sont pas copiées (ex. : cellule F8 de l'onglet Résumé devrait avoir la valeur 49.25 mais est vide). Comment corriger le tout.
La moindre des choses, quand on demande de l'aide, c'est de fournir le mot de passe qui permettrait de visualiser le code... Même au Québec on sait cela .
L'erreur est ici : Set Classe = Activite.Offset(1).Resize(, 3).Find(Cel.Offset(, 2), , xlValues, xlWhole) Remplace par : Set Classe = Activite.Offset(1).Resize(, 6).Find(Cel.Offset(, 2), , xlValues, xlWhole)
Mieux ! Remplace la même ligne par :
Set classe = activite.Offset(1).Resize(, activite.MergeArea.Cells.Count).Find(Cel.Offset(, 2), , xlValues, xlWhole)