petit soucis avec une mise à jour

bonsoir le forum
j'ai un petit soucis avec une mise à jour

quand j'essaye de faire une mise à jour à l'aide du boutton MAJ sur la feuille "recherche" rien ne se passe.
voila le code
Private Sub MAJ_Click()
With WsBase
.Range("c5" & NomLBindex).Value = TextBox1.Value
.Range("c7" & NomLBindex).Value = TextBox2.Value
.Range("c9" & NomLBindex).Value = TextBox3.Value
.Range("c13" & NomLBindex).Value = TextBox4.Value
.Range("c11" & NomLBindex).Value = TextBox5.Value
.Range("c15" & NomLBindex).Value = TextBox6.Value
.Range("c17" & NomLBindex).Value = TextBox7.Value
.Range("c29" & NomLBindex).Value = TextBox8.Value
.Range("c21" & NomLBindex).Value = TextBox9.Value
.Range("c31" & NomLBindex).Value = TextBox10.Value
.Range("c23" & NomLBindex).Value = TextBox11.Value
.Range("c25" & NomLBindex).Value = TextBox12.Value
.Range("c19" & NomLBindex).Value = TextBox13.Value
End With
Sheets("Recherche").Select
Unload Me

End Sub

merci
petchy