je vous joints le code ,elle marche,mais dans le fichier txt exporte des espaces devant les chiffres et devant les textes iln'y a pas d'espace ce qui me convient
sub export_csv()
dim i as long,dc as long
dc=range("D"&rows.count).end(xlup).row
open thisworbook.path&"\text32.csv"for output as #1
for i=1 to dc
dim rslt as variant
rslt=cells(i,4)
print #1,rslt
close #1
end sub