Sub Export_type()
Dim chemin$, t, d As Object, i&, wb As Workbook
chemin = ThisWorkbook.Path & "\" 'à adapter
With Feuil1.[A1].CurrentRegion
'---liste des types sans doublons---
t = .Value 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For i = 2 To UBound(t)
If t(i, 1) <> "" Then d(t(i, 1)) = ""
Next
If d.Count = 0 Then Exit Sub
'---création des fichiers CSV---
Application.ScreenUpdating = False
Application.DisplayAlerts = False
t = d.keys
For i = 0 To UBound(t)
.AutoFilter 1, t(i) 'filtre automatique
Set wb = Workbooks.Add(xlWBATWorksheet)
.Copy wb.Sheets(1).[A1]
wb.SaveAs chemin & UCase(t(i)) & ".csv", xlCSV
wb.Close
.AutoFilter
Next
End With
End Sub