'----------------------------------------------------------------------------------------------------------
'LUNDI
' Déclaration du chemin des fichiers à lire, du nom du fichier et du nom de l'onglet à écrire
Chemin = "C:\Users\PC_PAPA\Desktop\Quicksland\"
NomFichier = "1 CAMUS LA RIBAMBELLE 1.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "B13", "I5:I6", "E14", "F7:I8", "M6", "H9:I10", "E15", "H11:I12", "E16", "D5:E6", "E10", "D21:G21", "I3", _
"Q2:Q4", "B19", "Q5:Q6", "E20", "N7:Q8", "M6", "P9:Q10", "E21", "P11:Q12", "E22", "L5:M6", "E10", "L21:O21", "I3", _
"Y2:Y4", "B25", "Y5:Y6", "E26", "V7:Y8", "M6", "X9:Y10", "E27", "X11:Y12", "E28", "T5:U6", "E10", "T21:W21", "I3", _
"AG2:AG4", "B31", "AG5:AG6", "E32", "AD7:AG8", "M6", "AF9:AG10", "E33", "AF11:AG12", "E34", "AB5:AC6", "E10", "AB21:AE21", "I3")
' Mise à jour de l'onglet (macro dans ThisWorkbook )
UpdateSheet
End Sub