Récupération valeurs dans fichier .TXT à partir d'Excel

Sub importTXT()
'source d'inspiration Creepy
Dim F As Worksheet
Dim Nom_Fichier As String, Texte As Variant
Dim NumFile As Integer, Compteur As Integer
Application.ScreenUpdating = False
Nom_Fichier = "c:\temp\gggg.txt"
Compteur = 1
If Dir(Nom_Fichier) = "" Then
MsgBox "Fichier inexsistant !", _
vbCritical + vbOKOnly, "ERREUR"
Exit Sub
Else
Set F = Sheets.Add
F.Visible = xlSheetVeryHidden
NumFile = FreeFile
Open Nom_Fichier For Input As NumFile
Do While Not EOF(NumFile)
      Input #NumFile, Texte
      F.Range("A" & Compteur).Value = Texte
      Compteur = Compteur + 1
Loop
End If
lig = [A65536].End(xlUp).Row
F.Range("B1").FormulaR1C1 = "=COUNTIF(C[-1],""=Opened"")"
MsgBox "Nombres d'occurences trouvées : " & _
F.[B1], vbInformation, "RESULTATS : Opened"
Close NumFile
F.Visible = True
Application.DisplayAlerts = False
F.Delete
Application.ScreenUpdating = True
End Sub