Macro recherchev double critère

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

Sub MAJ()
Dim fichier, F As Worksheet
ChDir ThisWorkbook.Path & "\"
fichier = Application.GetOpenFilename
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est déjà ouvert
Set F = ActiveSheet
F.Rows("4:" & F.Rows.Count).Delete 'RAZ
With Workbooks.Open(fichier).Sheets(1).[A1].CurrentRegion
    .AutoFilter 2, "neuf"
    .Copy F.[A3]
    .AutoFilter 2, "occas"
    .Copy F.[E3]
    .Parent.Parent.Close False
End With
End Sub