Pourquoi il ne veut pas "call Vinvin" ?

J'ai un userform et voici ce que je lui demande lorsqu'on clique sur le bouton valider de mon userform :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Valider_Click()
    'Importation des données entrées dans l'userform pour la macro
 
        Sheets("Macro").[E35] = Echantillon.Text 'Détermination des cellules d'insertion des différentes valeurs
        Sheets("Macro").[E36] = Masse.Value
        Sheets("Macro").[E37] = Surface.Value
        Sheets("Macro").[E38] = Commentaire.Text
 
    Call Vinvin
 
    Unload UserForm1    'action de fermeture de l'userform
 
End Sub
Or il ne veut pas (message d'erreur : erreur de compilation sub ou fonction non définie) pas appeler Vinvin

Qui est un code stockée dans le module 1