'fermer le classeur d'affectation des projets
Workbooks("Affectation Projets S Technique.xls").Activate
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
Sheets("Index").Select
Range("H12").Interior.ColorIndex = 4
Range("I10") = "100%"
Sleep 2000
Application.ScreenUpdating = False
Range("A1").Select
Application.ScreenUpdating = True
Sheets("Index").Select
MsgBox "Mise à jour terminé", vbInformation