Sub CSV_Import_III()
'recyclons, recyclons ;-)
'copie à peine retouchée de ma réponse dans ce fil
'https://www.excel-downloads.com/threads/comparer-date-dans-fichier-ferm%C3%A9.20023132/page-2#post-20172742
Dim ws As Worksheet, fichier As Variant
Set ws = Sheets("Import")
fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv", , "Choisissez le fichier à importer...")
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 'sécurité
With ws
With .QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh
End With
End With
End Sub