Sub OuvrirCSVDansNouveauClasseur()
fichier = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")
If fichier = False Then
Exit Sub
End If
'fichier = "C:\Test2\FICHIERS ZIP\export au format google.csv"
virgule = 2: point_Virgule = 4
Set wb = Workbooks.Open(fichier, , , virgule, , , True, , , , , , False, local:=True)
wb.Activate
End Sub