save feuille en .ini ?

Sub Creation_fichier_ini()

'indication de la zone où sont les données
Dim nombreligne As Integer
nombreligne = Range("A65536").End(xlUp).Row

' indique le nom fichier
    nomfichiercourt = "hello.ini"
'
'indique le repertoire et le nom du fichier
    nomfichier = ThisWorkbook.Path & "\" & nomfichiercourt
'
'creation du fichier ini - nom du fichier
    Set NouveauFichier = CreateObject("Scripting.FileSystemObject").createtextfile(nomfichier, ForWriting)

'boucle sur la zone
For i = 1 To nombreligne
'
    'ecriture dans le fichier de ce qu'il y a dans la colonne A
    NouveauFichier.writeline (Range("a" & i))
Next i
'
    'fermeture du fichier
    NouveauFichier.Close

End Sub