Ecrire en vba dans .txt

Option Explicit

Const cteLecture = 1
Const cteEcrire = 2
Const cteAjouter = 8
Const cteRapport = "Rapport.txt"
'

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim objFSO As Object, objFichier As Object
    Dim Chemin As String
    
    Application.EnableEvents = False
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Chemin = ThisWorkbook.Path
    Chemin = Chemin & "\" & cteRapport
    
    If (objFSO.FileExists(Chemin)) Then
        Set objFichier = objFSO.OpenTextFile(Chemin, cteAjouter)
    Else
        Set objFichier = objFSO.CreateTextFile(Chemin, cteEcrire)
    End If
  
    objFichier.WriteLine Target.Value
    objFichier.Close
    
    Set objFichier = Nothing
    Set objFSO = Nothing
  
    Application.EnableEvents = True
  
End Sub

'