Macro d'importation de fichier texte+remplacement de charactères

Sub DETAILS_COOP()
Dim Chemin As String
Dim Fichier As String
Dim Texte As String
Dim Sep As String
Dim X As Long
Dim Sh As Worksheet
Dim A As Long, B As Integer

'-------Variable à définir-------
'où est situé ton fichier
Chemin = Range("D10").Value
Sep = vbTab
'Le nom de la feuille du classeur où seront copiées les données
Set Sh = ThisWorkbook.Worksheets("data COOP")
'---------------------------------
'nom de ton fichier texte
Fichier = "data.txt"
' le séparateur employé dans ton fichier texte
B = NombreColonnes(Chemin & Fichier, vbTab)
Sh.Range("A1:B" & B).EntireColumn.NumberFormat = "@"
X = FreeFile
If Dir(Chemin & Fichier) <> "" Then
    Open Chemin & Fichier For Input As #X
    Do While Not EOF(X)
        Input #X, Texte
        If Texte <> "" Then
            t = Split(Texte, Sep)
            A = A + 1
            Sh.Range("A" & A).Resize(, UBound(t, 1) + 1) = t
         End If
    Loop
    Close #X
End If
derlig = Sh.Range("A" & Cells.Rows.Count).End(xlUp)(2).Row
Sh.Range("A" & derlig, "A" & Cells.Rows.Count).EntireRow.Delete
End Sub
'---------------------------------
Function NombreColonnes(Fichier As String, Sep As String)

Dim A As String, B As Integer
Open Fichier For Input As 2
Do While Not EOF(2)
    Input #2, A
    If A <> "" Then
        Exit Do
    End If
Loop
Close
NombreColonnes = _
    Len(A) - Len(WorksheetFunction.Substitute(A, Sep, "")) + 1
End Function