Formulaire dans VBA

Bonjour,
voici ma question, j'ai créé un formulaire à partir de liste de nom, dans celui-ci il y a 4 boutons de commande: Nouvel adherent; Modifier; Recherche; Quitter. J'ai copié les codes pour les 4. Le seul qui ne fonctionne pas c'est le bouton "Modifier". Le principe de la modification consiste a rechercher un nom qui apparait dans le formulaire et changer les differents textbox. Je lance la modification le message "confirmez-vous la modifiction" monte, je clique OK et aucune modification ne se fait.
Voici le code:
Dim ligne As Long
Dim I As Integer

If MsgBox("Confirmez-vous des modifications de l'adhérent ?", vbYesNo, "Confirmation") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
ligne = Me.ComboBox1.ListIndex + 2
WS.Cells(ligne, "B") = ComboBox2
For I = 1 To 7
If Me.Controls(«TextBox» & H).Visible = True Then
WS.Cells(ligne, H + 2) = Me.Controls(«TextBox» & H)
End If
Next I
End If
Pouvez-vous me donner une solution?
Par avance merci
PS: J'espere avoir été clair