Bonsoir Hervé
Si j'ai bien compris ta question en adaptant un exemple de l'aide VBA il crée un fichier texte et écrit la variable Buffer d'un coup.
Option Explicit
Sub TextStreamTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Dim Tablo(1) As String, Buffer$
Tablo(0) = 'bonjour'
Tablo(1) = 'Hervé'
Buffer = Tablo(0) & ' ' & Tablo(1)
Set fs = CreateObject('Scripting.FileSystemObject')
fs.CreateTextFile 'test1.txt' 'Crée un fichier
Set f = fs.GetFile('test1.txt')
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write Buffer
ts.Close
End Sub
salim.