Objet fonctionnant que sous XP ?

[BobiwaneKilobits]

Bonjour à toutes et à tous,

Je suis en train de travailler sur un projet qui doit être utilisé sous plusieurs versions de Windows (XP et Seven).

Mon problème vient de cette fonction, de la ligne en gras plus particulièrement :

Function LectureBDR(ByVal cheminClé As String, Optional cpt As Integer) As String

'Création d'un objet VBA pour lire dans la base de registre
Set wshshell = VBA.CreateObject("WScript.Shell") 'PB sur Seven

'Si le paramètre cpt n'est pas passé en paramètre, cela signifie que l'on cherche le chemin de ...
If IsMissing(cpt) Then
structure(cpt).Id = wshshell.regread(cheminClé)
LectureBDR = Null
Else
LectureBDR = wshshell.regread(cheminClé)
End If
End Function

Cela ne marche que sous mon XP (et celui d'un collègue) mais pas sous Seven.

Voilà,
Merci d'avance

Edit : j'ai oublié de préciser que l'erreur indiqué est : "Projet ou bibliothèque introuvable"