MsgBox ("Ouvrir le fichier Planning Type 0")
monfichier = Application.GetOpenFilename("Classeurs Excel 97 (*.xls), *.xls")
Workbooks.Open Filename:=monfichier
'NOM = ActiveWorkbook.Name
Cells.Copy workbooks("RESULTAT").Sheets("Type 0").Range("A1")
Activeworkbook.Close savechanges:=False, RouteWorkbook:=True
'Workbooks(NOM).Close savechanges:=False, RouteWorkbook:=True