Sub monraccourci()
Dim raccourci
Set scrHst = CreateObject("WScript.Shell")
' emplacement = scrHst.SpecialFolders("Desktop")
Set raccourci = scrHst.CreateShortcut("C:\Documents and Settings\Mes documents\Mes sources de données\IDLMS\version 1.0.2\Statistics.lnk")
'raccourci.WorkingDirectory = emplacement
raccourci.TargetPath = "C:\Documents and Settings\Mes documents\Raccourci\"
raccourci.Save
Set raccourci = Nothing
Set scrHst = Nothing
End Sub