Voici le code qui fonctionne :  
 
Private Sub cmdImporter_Click()
    If fichierImporter <> "" Then
        LireCSV fichierImporter, 0, 1, 2, 37, 43
        parcoursDonnees
        Me.Hide
    Else
        MsgBox "Vous devez sélectionner un fichier pour pouvoir l'importer !", vbExclamation, "Erreur de fichier"
    End If
End Sub
 
Private Sub cmdParcourir_Click()
    ChDir ThisWorkbook.Path
    fichierImporter = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv" )
    txtChemin.Value = Dir(fichierImporter)
End Sub
 
 
Et celui qui ne fonctionne pas :  
 
Private Sub cmdImporterS_Click()
    If fichierImporterS <> "" Then
        LireCSV fichierImporterS, 0, 1, 25, 32
        parcoursDonneesSorties
        Me.Hide
    Else
        MsgBox "Vous devez sélectionner un fichier pour pouvoir l'importer !", vbExclamation, "Erreur de fichier"
    End If
End Sub
 
Private Sub cmdParcourir_Click()
    ChDir ThisWorkbook.Path
    fichierImporterS = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv" )
    txtChemin.Value = Dir(fichierImporterS)
End Sub
 
 
Il y a en effet un argument de moin a extraire dans le second code (celui qui ne fonctionne pas) car se sont des colonnes à extraire d'un fichier CSV et dans le 2ème cas j'ai tout simplement besoin d'une colonne de moins.