Problème de remplissage d'une cellule avec combobox

Bonjour à vous,

Je vous présent mon problème rapidement.

L'utilisateur entre son nom dans une combobox qui est dans un userform qui est situé sur une page X.

Ma macro associe ce nom à un numéro qui est sur une page ("Position").

Par la suite ce numéro permet d'enlever le remplissage d'une cellule en particulier sur la page ("carte du site").

Voici mon code:

Dim a As Integer
Dim new_lieu As Integer
Dim cherche As String
      cherche = ComboBox1.Value
      a = Sheets("Position").Cells.Find(What:=cherche, LookIn:=xlValues,          LookAt:=xlWhole, SearchOrder:=xlNext).Row
      new_lieu = Cells(a, 2).Value

     If new_lieu = 1 Then
        Sheets("carte du site").Range("Z30").Interior.ColorIndex = xlNone
    End If

Le code fonctionne seulement lorsque le userform apparaît sur la page ("Position"). Mais mon programme ne me le permet pas, donc mon userform apparaît sur la page X et je ne sais pas pourquoi ma macro ne fonctionne pas.

Merci d'avance pour votre aide cela est extrêmement apprécié.


EDIT : Ajout des balises de code (jordane)