Remplir cellule avec macro vba - case à coche

Bonjour,

Pourquoi ca ne fonctionne pas :

Private Sub ok_button_server_Click()

If option1_server.Value = True Then
Range(Cells(i, 5)).Value = "Dell"
End If

If option1_printserver.Value = True Then
Range(Cells(i, 5)).Value = "DellPrint"
End If

End Sub


Le but recherché:
Suite à l'apparition d'un formulaire présentant un ensemble de cases à cocher, l'utilisateur clique sur un bouton "OK" : ok_button_server.
Je voudrais inscrire Dell (ou Dellprint) selon son choix de case, dans la cellule (i,5)
Le i est declaré en Public dans mon module, j'ai verifié avec le debogeur i prend bien la valeur souhaitée.

Merci d'avance pour vos reponses !

Fleur