Importer fichier txt - Pb avec la fonction Split

Bonjour,

J'ai un petit soucis, en fait j'ai un fichier texte ayant le format ci-dessous:
Type: Repartition
0, 0
7.2e-008, 0.0005172
1.44e-007, 0.0048998
2.16e-007, 0.022621
2.88e-007, 0.082317
3.6e-007, 0.1872
4.32e-007, 0.35252
5.04e-007, 0.51745
5.76e-007, 0.66523
6.48e-007, 0.76361

Et j'essaie de créer une macro qui le lit et mette les éléments de chaque coté du séparateur "," dans une colonne (dans mon cas dans A et B).

Le code est ci-dessous et quand je l'execute, il semblerait que le problème se trouve à ligne en gras et je ne sais pas comment le résoudre.

Voici l'erreur qui est renvoyé
Erreur d'execution '9':
L'indice n'appartient pas à la séléction

Private Sub CommandButton1_Click()
'macro pour importer le fichier texte dans la Feuil2
Dim Nom_Fichier As String, Texte As Variant
Dim NumFile As Integer, Compteur As Integer
 
If Feuil1.TextBox1.Value = "" Then
   MsgBox "Merci de renseigner le nom de fichier !", vbCritical + vbOKOnly, "Attention..."
   Exit Sub
End If
 
Nom_Fichier1 = "C:\Traitement Vba\" & Feuil1.TextBox1.Value
Compteur = 1
If Dir(Nom_Fichier1) = "" Then
   MsgBox "Le fichier n'existe pas !", vbCritical + vbOKOnly, "Attention..."
   Exit Sub
Else
   Feuil2.Select
   NumFile = FreeFile
   Open Nom_Fichier1 For Input As NumFile ' ouverture du fichier
   Do While Not EOF(NumFile)
      Line Input #NumFile, Texte
      montableau2D = Split(Texte, ", ")
      Feuil2.Range("A" & Compteur).Select
      Feuil2.Range("A" & Compteur).Value = montableau2D(0)
      Feuil2.Range("B" & Compteur).Value = montableau2D(1)
      Compteur = Compteur + 1
   Loop
End If
Feuil2.Range("A1").Select
Close NumFile
 
End Sub

Je vous Remercie d'avance