Macro Copier coller données récupérées .TXT

sub appelLecture
Dim BufferTexte As String
BufferTexte = ReadFileToBuffer(Dossier & FichierTexte, errCode, errString)

'Ici suite du traitement des données ...


'Fin traitement

' Cette fonction lit le contenu du fichier szFileName et retourne
' ce contenu. En cas d'erreur, elle retourne une chaîne vide et
' renseigne le code d'erreur et la description de l'erreur
Function ReadFileToBuffer(ByVal szFileName As String, _
                                ByRef errCode As Integer, _
                                ByRef errString As String) As String
    Dim f As Integer
    Dim buffer As String

    ' Gère les erreurs
    On Error GoTo ReadFileToBuffer_ERR

    ' Ouverture du fichier en 'Binary'
    f = FreeFile
    Open szFileName For Binary As #f
        ' préallocation d'un buffer à la taille du fichier
        buffer = Space$(LOF(f))
        ' lecture complète du fichier
        Get #f, , buffer
    Close #f
    ReadFileToBuffer = buffer

ReadFileToBuffer_END:
    On Error GoTo 0
    Exit Function
    
ReadFileToBuffer_ERR:
    ' Gestion d'erreur
    ReadFileToBuffer = ""
    errCode = Err.Number
    errString = Err.Description
    Resume ReadFileToBuffer_END
End Function

Option Explicit
Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function GetWindow Lib "user32" (ByVal Hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Sub Utilisation()
Dim Controle As String
    Controle = LirePressePapier
    msgbox controle
End Sub

Function LirePressePapier() As String
Dim Tampon As String * 5000
Dim Valeurs As Long
Stop
OpenClipboard GetWindow(0, 0)
Valeurs = GetClipboardData(1)
If Valeurs <> 0 Then
CopyMemory ByVal Tampon, ByVal Valeurs, 5000
LirePressePapier = Left(Tampon, InStr(1, Tampon, Chr(0)) - 1)
Else
LirePressePapier = ""
End If
'Vidage du presse papier
EmptyClipboard
CloseClipboard
End Function