Bonjour,
As-tu simplement essayé de mettre un x aux extensions de fichier en .xls pour les passer en .xlsx ?
exemple :
Set co = Workbooks("Départ.xls") 'définit la variable co
Set cc = Workbooks("terminus.xls")
Set co = Workbooks("Départ.xlsx") 'définit la variable co
Set cc = Workbooks("terminus.xlsx")
Car dans le reste du code, rien ne me choque plus que ça. En général, à part macro un peu spécial, le portage vers une version plus récente se fait bien, c'est dans le sens inverse où c'est plus compliqué car toutes les formules des versions 2007/2010 n'existaient pas forcement et donc il faut bidouiller.
Cordialement,