Sub ouvrirFichiersCSV()
Dim Fichier As String, Chemin As String
'Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
Chemin = ThisWorkbook.Path
Fichier = Dir(Chemin & "\\*.csv")
Do While Fichier <> ""
'Workbooks.Open Chemin & '\\' & Fichier
ActiveWorkbook.FollowHyperlink Chemin & "\\" & Fichier, NewWindow:="True"
Fichier = Dir
Loop
End Sub