Option Explicit
Sub Vente()
Dim Chemin As String
Dim fich As Workbook
Application.ScreenUpdating = False
Chemin = "http://ra48-q0.paris.cpncession.fr/PTA/CARA_DPO_ROUE/"
Set fich = Workbooks.Open(Chemin & "TSR_J_BG_" & Cells(1, 2) & "_VEHICULES_NEUFS.XLS")
fich.SaveAs Filename:=Chemin & "VOITURES.XLS"
fich.Close False
Workbooks("LIENS VOITURE.xls").Activate
End Sub