Workbooks.Open Filename:="C:\Users\domi\Documents\equipe1.xls", UpdateLinks _
:=0
ActiveWorkbook.UpdateLink Name:="C:\Users\domi\Documents\jean.xls", Type:= _
xlExcelLinks
ActiveWorkbook.UpdateLink Name:="C:\Users\domi\Documents\luc.xls", Type:= _
xlExcelLinks
ActiveWorkbook.UpdateLink Name:="C:\Users\domi\Documents\pierre.xls", Type _
:=xlExcelLinks
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.UpdateLink Name:="C:\Users\domi\Documents\equipe1.xls", Type _
:=xlExcelLinks