Sub Ouverture()
Dim Chemin As String, Part As String, Chem2 As String
Chemin = "N:\PARTAGES\03-ExtractionsTmp\"
Part = 'Range("E1").Value
Chem2 = Dir(Chemin & Part & "*.csv")
'Ouverture du fichier
Workbooks.Open Filename:=Chemin & Chem2, Local:=True
ThisWorkbook.Sheets("Feuil1").Range("A1:E1") = ActiveWorkbook.ActiveSheet.Range("A1:E1").Value
End Sub