Comment modifier ma macro pour ouvrir aussi un fichier .csv

'————————————————————————————————————————————————————————————————————————————————————————————
' Module    : mOuvrir
' Objet     : Ouvre (et corrige) des fichiers de format non Excel
'
' Historique succint
' Date        Developpeur         Version  Action                       Macro
'————————————————————————————————————————————————————————————————————————————————————————————
' 08/12/13    Patrice             V1-0-00  Création                     mOuvrir
'
'
' DAO : Etablir une références à Microsoft DAO 3.6 Object Library
'
Option Explicit
Option Private Module
'
'————————————————————————————————————————————————————————————————————————————————————————————
' Constantes du module
'————————————————————————————————————————————————————————————————————————————————————————————
' Adresse des cellules de
'

Public Sub Choisir_fichier(ByVal strType As String)
' Choix et ouverture d'un fichier
'
' Arguments : strExtension        [in]  Type de fichier
'
' Date        Developpeur         Version  Action                   Macro
'————————————————————————————————————————————————————————————————————————————————————————————
' 17/01/13    Patrice             V1-1-00  Création                 Choisir_fichier
'
Dim wbkExtension As Workbook      'Fichier à ouvrir
Dim strNomFichier As String       'Nom du fichier
Dim strExtension As String        'Extension du fichier
Dim intFormat As Integer         'Format de fichier
Dim blnLocal As Boolean           'Format local

  Select Case strType
    Case "en.dat"
      strExtension = ".dat"
      intFormat = 2            'Csv anglais : virgule
      blnLocal = False
    Case Else
      MsgBox "Format non prévu"
      Exit Sub
  End Select
  
  'Choisir le fichier fédéral (.dat pour le tirage)
  strNomFichier = mOuvrir.ParcourirFichier(strExtension, "M:\Entrepot\BDFS\1_Piézomètres\")
  If strNomFichier = "" Then Exit Sub
  
  'Arrêter l'actualisation de l'écran
  Application.ScreenUpdating = False
  
  'Ouvrir le fichier selon au format
  Set wbkExtension = Workbooks.Open(Filename:=strNomFichier, Format:=intFormat, local:=blnLocal)
  
    wbkExtension.Worksheets(1).Columns.AutoFit
    wbkExtension.Worksheets(1).Rows.AutoFit
  
  'Rétablir l'actualisation de l'écran
  Application.ScreenUpdating = True
  
  UserForm2.Hide
  
End Sub

Function ParcourirFichier(ByVal strExtension As String, _
                          Optional ByVal strChemin As String = "") As String
' Choix d'un fichier
'
' Arguments : strExtension        [in]  Extension du fichier
'             strChemin           [in]  Répertoire à parcourir
'
' Retour    : String              Chemin du fichier sélectionné, "" si annuler
'
' Date        Developpeur         Version  Action                       Macro
'————————————————————————————————————————————————————————————————————————————————————————————
' 13/02/11    Patrice             V1-0-00  Création                     - ParcourirFichier
'
Dim dlgParcourir As FileDialog    'Boite de dialogue fichiers
  
  'Repertoire par défaut : celui de cette macro
  If strChemin = "" Then strChemin = ThisWorkbook.Path
  'Créer une boite de dialogue Parcourir fichier
  Set dlgParcourir = Application.FileDialog(msoFileDialogFilePicker)
  'Selectionner le fichier
  With dlgParcourir
    .InitialFileName = strChemin
    .Title = "Sélectionner un fichier " & strExtension & " :"
    .AllowMultiSelect = False
    .InitialView = msoFileDialogViewDetails
    .ButtonName = "Sélection fichier"
    If .Filters.Count > 0 Then .Filters.Delete
    .Filters.Add "Fichiers " & strExtension, "*" & strExtension, 1
    If .Show = -1 Then
        ParcourirFichier = .SelectedItems(1)
    Else
        ParcourirFichier = ""
    End If
  End With
  
  Set dlgParcourir = Nothing


End Function