Sub ExportCSV()
Dim i&, Num&
Dim TData As Variant
Dim Chem$, Fic$, TmpTxtRw$, Separ$
Separ = ";"
Fic = "fiche_bien.csv" 'A adapter
With Feuil1 'A adapter
TData = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(3).Row, 5))
End With
For i = 2 To UBound(TData, 1)
Num = FreeFile
Chem = Trim(TData(i, 5))
TmpTxtRw = _
Trim(TData(1, 1)) & Separ & CStr(Trim(TData(i, 1))) & vbNewLine & _
Trim(TData(1, 2)) & Separ & Trim(TData(i, 2)) & vbNewLine & _
Trim(TData(1, 3)) & Separ & Trim(TData(i, 3)) & vbNewLine & _
Trim(TData(1, 4)) & Separ & Trim(TData(i, 4))
If Dir(Chem, vbDirectory) = "" Then MkDir Chem
Open Chem & "\" & Fic For Output As #Num
Print #Num, TmpTxtRw
Close Num
Next i
End Sub