Sub modifliaisons()
Dim strpath As String, strrep As String, strname As String
strpath = Workbooks("facture.xls").path
strrep = "\PHONEO\" & UCase(Format(DateSerial(Year(Date), Month(Date) - 1, 1), "MMMM YYYY"))
strname = "\" & "ACCESSOIRES" & Format(DateSerial(Year(Date), Month(Date) - 1, 1), " MM YYYY") & ".xls"
Range("a12") = ThisWorkbook.LinkSources
Range("a13") = strpath & strrep & strname
'ChDir chemin
ActiveWorkbook.ChangeLink Name:= _
Range("a11").Value, _
NewName:=Range("a12").Value, Type:=xlExcelLinks
End Sub