Dooody,
Le pb que tu rencontres doit provenir de la version 2007 d’EXCEL ne supportant pas encore l’UTF8.
Je te propose la macro modifiée ainsi:
[Sub ExportCSV_GVS()
Dim oSheet As Worksheet
Dim sPath As String
Dim oFolder As FileDialog
ThisWorkbook.Save
'On demande dans quel dossier exporter les csv
Set oFolder = Application.FileDialog(msoFileDialogFolderPicker)
'On indique le dossier par défaut = le dossier contenant ce classeur
oFolder.InitialFileName = ThisWorkbook.Path & "\"
oFolder.Title = "Indiquez le dossier pour les CSV à exporter"
If oFolder.Show = -1 Then
sPath = oFolder.SelectedItems(1)
For Each oSheet In Application.ActiveWorkbook.Worksheets
'Si la feuille est visible, on l'exporte en csv
If oSheet.Visible Then
oSheet.SaveAs sPath & "\" & oSheet.Name, xlCSV
End If
Next
MsgBox "Toutes les feuilles visibles ont été exportées en CSV!"
ThisWorkbook.Close False
End If
End Sub/code]