Dim Chemin As String
Dim cell As Range
cell = Cell(A, i)
Chemin = "N:\RepertoireX\"
On Error GoTo Next
For i =1 to 10 Step 1
'Ouverture du fichier
Workbooks.Open Filename:=Chemin & Dir(Chemin & cell & "*.csv"), Local:=True
nom_Csv = ActiveWorkbook.Name
Next