XL 2010 rechechev

Bonjour,

J'essaie de faire 1 code recherchev pour trouver le résultats dans 2 feuilles après saisie d'un formulaire via 1 user forme :
- j'ai crée un onglet paramètre pour que les utilisteurs puissent ajouter ou supprimer des sociétés avec le numéro de SIREN (sheet paramètre)
- dans l'onglet "saisie", l'utilisateur ouvre 1 user forme et le combobox récupère la liste de société qu'il avait paramétré
- Après validation, je récupère la donnée de la combobox et je souhaiterai ajouter la valeur SIREN vu qu'elle ne change pas et d'indiquer qu'elle n'est pas présente si pas dans la liste

j'ai donc fait comme code que j'ai trouvé sur le net :

sub siren()

Dim plage As Range, C As Range, teste

With Sheets("saisie")
Set plage = .Range(.[A65536], .Cells(.Rows.Count, 1).End(xlUp))
End With

With Sheets("Paramètre")
For Each C In plage
teste = Application.VLookup(C.Value, .Range(.[B8], .Cells(.Rows.Count, 1).End(xlUp)), 2, 0)
If IsError(teste) Then
C.Offset(, 2) = "non présent"
Else
C.Offset(, 2) = tests
End If
Next C
End With


Ca ne fonctionne pas et je trouve pas de solution...quelqu’un peut m'aider ?