Sub ExportCSVvII()
Dim nFic As Variant
nFic = _
Application.GetSaveAsFilename(InitialFileName:="Export.csv", fileFilter:="Fichier CSV (*.csv), *.csv")
If nFic <> False Then
Sheets("Data").Copy
With ActiveWorkbook
.Sheets(1).Columns(29).Resize(, Columns.Count - 28).Clear
.SaveAs Filename:= _
nFic, _
FileFormat:=xlCSV, _
CreateBackup:=False, local:=True
.Close False
End With
End If
End Sub