Bonjour,
ben' Sabv ta déjà tout dit à toi d'adapter ...
Sub creerFichier()
Dim stF As String
Dim f As Integer
stF = ThisWorkbook.Path & "\NouveauExemple.txt"
f = FreeFile
Open stF For Output As #f
Print #f, "du= 1 / 4 / 2017"
Print #f, "au = 18 / 4 / 2017"
Print #f, "statpro = 1"
Print #f, "14589"
Print #f, "12345"
Print #f, "36925"
Print #f, "14725"
Print #f, "12345"
Print #f, "78945"
Close #f
End Sub