Sub csv_Import()
Sheets("Mise_en_forme").Visible = True
Worksheets("Mise_en_forme").Select
With Application.FileDialog(msoFileDialogFilePicker)
.ButtonName = "Lire"
.AllowMultiSelect = False
.InitialFileName = CurDir & "\"
.Title = "Choisissez le fichier csv"
.Filters.Clear
.Filters.Add "Fichiers Csv", "*.csv", 1
.Show
If .SelectedItems.Count > 0 Then LireCSV .SelectedItems(1)
End With
End Sub