option bouton

Bonsoir j'ai une erreur quand je veux ranger dans un formulaire via "option button" voici mon code

If Me.Controls("OptionButton" & i) = True Then
Range("C65536").End(xlUp).Offset(1, 0).Value = Me.Controls("OptionButton" & i).Caption
End If

voila merci