Pb de case à cocher excel 2003

Lu' ter tous,

Je me tourne vers vous car je rencontre une petite difficulté sous excel.

En fait j'aimerait code une fonction qui permet d'afficher des cases à cocher (pour une sélection d'option) si un nom ce trouve dans la case à coté et la cacher s'il n'y a rien.

la fonction que j'ai faite ne marche pas. Vba me retourne "Erreur de compilation: Sub ou Function non définie".

Voila le code fait:

Private Sub cb_test_Click()

Dim Ws As Worksheet
Dim nom_bouton As Integer

nom_bouton = 1
For Each Cell In Ws.Range("A10:A100")

'Si la cellule contient la valeur 3, on multiplie la valeur par 2
If Cell.Value = "" Then
Controls("cb_option_économie_tec1_" & nom_bouton).Visible = False
Controls("cb_option_biologie_tec1_" & nom_bouton).Visible = False
'Controls("nb_option_allemand_tec1_" & nom_bouton).Visible = False
'Controls("nb_option_espagnol_tec1_" & nom_bouton).Visible = False
end_if

If Cell.Value <> "" Then
Controls("cb_option_économie_tec1_" & nom_bouton).Visible = True
Controls("cb_option_biologie_tec1_" & nom_bouton).Visible = True
'Controls("nb_option_allemand_tec1_" & nom_bouton).Visible = True
'Controls("nb_option_espagnol_tec1_" & nom_bouton).Visible = True
end_if

nom_bouton = nom_bouton + 1

Next Cell


End Sub

Merci d'avance à tout ce qui trouveront le temps de me répondre,

Très cordialement,
Moi