Pour créer automatiquement un raccourci du classeur actif sur le bureau Windows de l'utilisateur, vous pouvez utiliser la procédure suivante :

DANS UN MODULE DE CODE STANDARD
Sub CreerRaccourci()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Raccourci As Object
    With ActiveWorkbook
        'Vérifie l'existence d'un chemin pour le classeur
        If .Name <> .FullName Then
            'Défini le raccourci
            With CreateObject("WScript.Shell")
                Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _
                    & "\" & ActiveWorkbook.Name & ".lnk")
            End With
            'Crée le raccourci sur le bureau Windows
            Raccourci.TargetPath = .FullName
            Raccourci.Save
        Else
            MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
        End If
    End With
End Sub

Si le classeur vient d'être créé et n'a jamais fait l'objet d'une sauvegarde sur le disque dur, vous êtes invité à le faire (sinon, à quoi servirait un raccourci pour un fichier qui n'existe pas sur le DD ?)