Sub Ouvrir_CSV()
Dim wbkcible As Workbook, fd As Object, Nom$
Set wbkcible = ThisWorkbook
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Title = "Choisissez le fichier"
.Filters.Clear
.Filters.Add "CSV (séparateur: point-virgule)", "*.csv*"
.AllowMultiSelect = False
If .Show <> 0 Then
Nom = .SelectedItems(1)
Else
MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
End If
End With
Workbooks.Open Nom
End Sub