Macro range excel 2007

Bonjour,

Code :

Option Explicit
Private Sub valider_Click()

Dim compter As Integer
compter = 0

If nom = "" Then
        MsgBox "Vous devez entrer un nom d'utilisateur."
        Else
        compter = compter + 1
End If
If adresse = "" Then
        MsgBox "Vous devez entrer une adresse."
        Else
        compter = compter + 1
End If
If tel = "" Then
        MsgBox "Vous devez entrer un numero de telephone."
        Else
        compter = compter + 1
End If

If compter = 3 Then
MsgBox "coucou", vbInformation
nom = Worksheets("Feuil1").Range("C2")
adresse = Worksheets("Feuil1").Range("C6")
tel = Worksheets("Feuil1").Range("C8")
End If
End Sub
 

Ce simple est code est associé a un userform.
Il s'exécute bien, mais lorsque je veux cliquer sur "valider" j'ai le message suivant :

erreur d'exécution -2147417848(80010108)

Erreur d'Automation
l'objet invoqué s'est déconnecté de ses clients

_____________________________________

les variables sont bien retenu mais elle ne se place pas dans ma feuille excel.
_____________________________________
Quelqu'un sais d'où viens cette erreur ... et surtout comment la résoudre ? Cela viens surement de mon code très pauvre...

Merci a vous !