ActiveWorkbook.ChangeLink Name:="L:\PERSONNES AGEES\TABLEAU 2006\" _
& Workbooks("ACCUEIL.XLS").Worksheets("BASE").Range("AD10").Value _
& Workbooks("ACCUEIL.XLS").Worksheets("BASE").Range("AD6").Value, _
NewName:="L:\PERSONNES AGEES\TABLEAU 2006\" & Workbooks("ACCUEIL.XLS"). _
Worksheets("BASE").Range("AE10").Value & Workbooks("ACCUEIL.XLS"). _
Worksheets("BASE").Range("AE6").Value, Type:=xlExcelLinks