Sub ouverture_classeur2()
'
Dim Classeur1 As Workbook, Classeur2 As Workbook
Dim Fdepart As Worksheet, Farrive As Worksheet
Set Classeur1 = Workbooks.Open(Application.GetOpenFilename)
Set Classeur2 = Workbooks.Add()
Set Fdepart = Classeur1.Sheets("INFOS CONGRES")
Set Farrive = Classeur2.Sheets("Feuil1")
Classeur1.Activate
Fdepart.Range("$A$4:$O$4").AutoFilter Field:=3, Criteria1:="Piste"
Fdepart.Range("E4:E300").Copy Farrive.Range("A1")
Fdepart.Range("G4:H300").Copy Farrive.Range("B1")
Fdepart.Range("K4:N300").Copy Farrive.Range("D1")
Fdepart.Range("A4:A300").Copy Farrive.Range("H1")
Fdepart.Range("B1").Copy Farrive.Range("J1")
Classeur2.SaveAs Filename:= _
"GEN:BD et MARKETING:CRM:Campagne Salesforce:Import campagne Congrès partnering:import" & Range("J1").Value & ".csv" _
, FileFormat:=xlCSV, CreateBackup:=False
End Sub