Mettre texte dans cellule suivant coche Checkbox dans userform

Bonjour,

Dans mon Userform je crée un nombre aléatoire de checkboxes suivant le nombre de lignes d'un TCD.

Je souhaite que si je coche la CB N°x , la ligne x correspondante me renvoie un valeur texte fixe.

Avec mon code actuel, qu'une, plusieurs ou aucune CB ne soit cochée, l'ensemble des cellules de mon intervalle de lignes se remplit invariablement avec mon texte. Comment tenir compte de chaque CB?

Merci d'avance,

For i = 1 To 2

For J = 5 To DerLg

If i = 2 Then

On Error Resume Next

Else

If Controls("CB" & i & J) = True Then

Cells(J, i + 9) = "EN DOUBLE"

Else

Cells(J, i + 9) = ""

End If

End If

Next J

Next i

Re,

Finalement ça fonctionne!

If I = 1 Then Passe mieux.

Bonne soirée,