Nombre d'arguments incorrect

Bonjour,

Je travaille actuellement sous access 2003 et j'ai un problème avec la fonction "call"
En effet avec cette fonction j'aimerais appeler une autre sub qui me permet de trier mes donner le bout de code est le suivant

vlTypeTache = "Correctif"
vlLigneArbo = vlLigneBaseLog
vlCodeTache = Cells(vlLigneArbo, 160).Value
vlPoids = Cells(vlLigneArbo, 109).Value & " Kg"
vlNivMaint = Cells(vlLigneArbo, 42).Value
vlURL_URA = Cells(vlLigneArbo, 159).Value ' on prendre le Nom générique pour nommer la tache
vlLibelle = "Dépose / Pose, " & vlURL_URA
vlDep = Cells(vlLigneArbo, 146).Value
Sheets(vgOngletParametre).Select
vlLocalisation = Cells(18, 2).Value

vgFichierTache.Activate

Call Coller_DATA_BASL_dans_Tache

le problème c'est que les variables au-dessus de la fonction call ne reste pas au valeur indiquer dans la fonction Coller_DATA_BASL_dans_Tache!
Comment puis-je résoudre ce problème??

Merci d'avance
cordialement