Sub fichiertexte()
Dim fso, MyFile
Dim NextFile
Dim Ligne
Set fso = CreateObject('Scripting.FileSystemObject')
Set MyFile = fso.CreateTextFile('c:\\Ma_carniliste.txt', True)
MyFile.Close
NextFile = FreeFile
Open 'c:\\Ma_carniliste.txt' For Append As NextFile
Ligne = 2
Do While Not IsEmpty(Cells(Ligne, 1))
Write #NextFile, Cells(Ligne, 1).Value, Cells(Ligne, 2).Value
Ligne = Ligne + 1
Loop
Close #NextFile
End Sub