Sub Neuf()
ChDrive "C"
ChDir "C:\Users\u167753\Desktop\"
fichier1 = Application.GetOpenFilename
If fichier1 = False Then Exit Sub
With Range("c4:c9") 'A modifier
Set Source = Workbooks.Open(fichier1)
.Formula = "=IFERROR(VLOOKUP($a4,'[" & Source.Name & "]28122018'!$a:$c,3,0),""0"")" ' A modifier
.Value = .Value
End With
Workbooks(Source.Name).Close
End Sub
Sub Occas()
ChDrive "C"
ChDir "C:\Users\u167753\Desktop\"
fichier1 = Application.GetOpenFilename
If fichier1 = False Then Exit Sub
With Range("c15:c20")
Set Source = Workbooks.Open(fichier1)
.Formula = "=IFERROR(VLOOKUP($a15,'[" & Source.Name & "]28122018'!$a:$c,3,0),""0"")" ' A modifier
.Value = .Value
End With
Workbooks(Source.Name).Close
End Sub