Sub Desktop()
Dim numfich As Integer
Dim us As String, Fichier$
'creation du fichier vide = desktop.txt dans ThisWorkbook.Path ?
Fichier = ThisWorkbook.Path & "\desktop.txt"
If Dir(Fichier) = "" Then
numfich = FreeFile
Open Fichier For Output As #numfich
Print #numfich, "[.ShellClassInfo]"
Print #numfich, "IconResource=C:\WINDOWS\System32\SHELL32.dll,110"
Print #numfich, "[ViewState]"
Print #numfich, "Mode="
Print #numfich, "Vid="
Print #numfich, "FolderType = Music"
Close #numfich
End If
End Sub