Formulaire sur VBA

Bonjour,
Je veux modifier une plage de donné enregistrée sur une feuil Exel pour cela j'ai choisi de mettre une liste déroulante pour choisir l'élément à modifier à partie de la feuil et copier le reste des donner directement sur les champ du formulaire à partir de l'adresse j'ai procédé comme suit:

<souligne><souligne><souligne><souligne><gras>Public Sub elevebox_Click()
Dim i As Integer
Dim eleve As eleve
c = Feuil2.UsedRange.Rows.Count
For i = 2 To c
elevebox.Value = Feuil2.Range("A" & i)
Next i


End Sub

Private Sub elevebox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
elevebox.Value = Feuil2.Range("A" & i)
'test su'r le nom/prenom
If elevebox.Value = Feuil2.Range("A" & i) Then
eleve.date = Feuil2.Range("C" & i).Value
eleve.adresse = Feuil2.Range("D" & i).Value
eleve.email = Feuil2.Range("E" & i).Value
eleve.cotisation = Feuil2.Range("F" & i).Value
datebox.Caption = eleve.date
adrbox.Value = eleve.adresse
cotBox.Value = eleve.cotisation
mailbox.Value = eleve.email
End If
Mais ce programme ne marche pas ça ne me copie pas les donnés, les champs restent vides.
Merci de bien vouloir m'aider.
Cordialement.