Problème déclaration de variables

Bonjour

j'ai tapé le code suivant, les cases que je désire remplir sont les bonnes sauf que la valeur qui est mise à l'intérieur est "FAUX" alors que je voudrais qu'il soit inscrit le contenu de ma textbox1.

Dim x As Integer
Dim y as Integer
Dim entreprisexiste As string

Sheets("Données").Select

entreprisexiste = 0

x = 2
While Not Cells(x, 5).Value = 0
If TextBox5.Value = Cells(x, 5).Value Then entreprisexiste = 1
x = x + 1
Wend


y = 7
While Not Cells(2, y).Value = TextBox5.Value
y = y + 1
Wend

x = 2
While Not Cells(x, y).Value = 0
x = x + 1
Wend

Cells(x, y).Value = TextBox1.Value = entreprisexiste

Sheets("Garde").Select

End Sub

Trouvez vous des erreurs?
merci d'avance!