XL 2019 Import CSV par VBA - prise ne compte du séparateur

Option Explicit

Sub ImportFichierCsv()
   Dim fichier As Variant
   fichier = Application.GetOpenFilename("Tous les fichiers (*.csv),*.csv")
   If fichier = False Then Exit Sub
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   On Error Resume Next   'sécurité
   With Workbooks.Open(fichier).Sheets(1)
      .Columns(1).TextToColumns .[A1], xlDelimited, Semicolon:=True   'commande Convertir à adapter
      Feuil1.Cells.Clear
      .UsedRange.Copy Feuil1.[A2] 'à adapter
      .Parent.Close False
   End With
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
MsgBox "Import terminé!", vbInformation + vbOKOnly, "import cvs"
End Sub