VBA Excel problème boucle userform

bonjour à tous,

Voici mon problème, je liste la colonne A la valeurs des cellules avec une boucle :

For i = 1 To 10 Step 1
Cells(i, 1).Select

If Cells(i, 1).Value = "idem" Then
MsgBox ("YES")
End If

si la valeur est différente de "idem", j'appelle une procédure pour charger la userform d'option bouton :

If Cells(i, 1) <> "idem" Then
Call macro1
End If
Next i
End Sub

Sub macro1()
UserForm1.Show
End Sub


la macro1 se load et j'ai mes optionbutton et je veux remettre à la cells (i,1) la valeur choisi par l'optionbutton (optionbutton1.caption)

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Cells(i,1).value=OptionButton1.Caption

End If

End Sub

Private Sub OptionButton2_Click()
If OptionButton1 = True Then
Cells(i,1).value=OptionButton2.Caption

End If

End Sub


Mais dans la procédure optionbutton, il ne reconnait pas la valeur de la variable i et surtout je ne reviens pas sur ma boucle définie par for i=1 to 10 ... pour finir de lister les cellules suivante de la colonne A.

Merci pour votre aide précieuse car je suis depuis vendredi soir sur ce problème

bonne soirée,

amandine