Sub toto()
Dim MonTexte As String
Fichier = "C:\essai.txt"
ligne1 = "Votre nom est : " & Range("B2")
ligne2 = "vous avez : " & Range("B1") & " ans"
ligne3 = "Vous habitez : " & Range("B3")
f = FreeFile()
Open Fichier For Append As #f
Print #f, ligne1
Print #f, ligne2
Print #f, ligne3
Close #f
End Sub