Sub copie_valeurs()
Set classeur = ActiveWorkbook
'Set classeur = Workbooks("C:\Users\lhelblin\Documents\Stage\Fichiers excel\Alpha.v1.xlsm")
Set classeur1 = Workbooks.Open("C:\Users\lhelblin\Documents\Stage\Fichiers excel\Matières productions plafonds 2016cop.xlsx")
' classeur1 = "C:\Users\lhelblin\Documents\Stage\Fichiers excel\Matières productions plafonds 2016cop.xlsx"
' classeur = "C:\Users\lhelblin\Documents\Stage\Fichiers excel\Alpha.v1.xlsm"
'
'Workbooks.Open(classeur1).Activate
'thisWorkbooks.Activate
tabmois = Array("indexage", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
'classeur.Activate
nbcolonne = (Sheets("consommation").Cells(1, Columns.Count).End(xlToLeft).Column) - 1 <--le programme bloque a l'exécution de la première ligne qui touche au classeur de base
nbligne = (classeur.Worksheets("consommation").Cells(Application.Rows.Count, 1).End(xlUp).Row) - 1 <-- ce modèle la ne fonctionne pas non plus c'est meme pire