Gérer deux possibilités de " Dernière ligne"

Bonjour le forum!!!!

Je vous recontacte aujourd'hui car j'aurais besoin d'un tout petit coup de pouce.

Dans une Userform j'ai 8 checkbox "cochable". Ma dernière ligne se crée à partir du nombre de checkbox cochée inscrites dans la colonne F.

J'ai également entre 1 et 5 mots à inscrire dans la colonne A.

Dans le cas où le nombre de mot inscrit est supérieur au nombre de checkbox cochées la derniére ligne devrait se créer à partir en fonction de la colonne A.


Je ne pense pas être trés claire. Mon programme est le suivant :

''''''''''''''''''''''''''''''''' ok'''''''''''''''''''''''''''''''''''''

Private Sub CBok_Click()
Dim j As Byte

With Worksheets(1)
derlign = .Range("F65536").End(xlUp).Row + 1

''''''''''''''''''''''''''''Choix du type d'opération(s)'''''''''''''''''''''

For j = 9 To 16
If Me.Controls("CheckBox" & j) Then
.Cells(derlign, 7).Value = Me.Controls("CheckBox" & j).Caption
derlign = derlign + 1

.Cells(derlign - 1, 9).Value = TextBox1.Value 'Commentaires
.Cells(derlign - 1, 8).Value = TextBox2.Value 'Essai

''''''''''''''''''''''''''''Mots clés''''''''''''''''''''''''''''''''''''''

For x = 3 To 6

If Me.Controls("TextBox" & x) Then
.Cells(derlign, 1).Value = Me.Controls("TextBox" & x).Caption
derlign = derlign + 1
End If

Next x

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


End If
Next j
End With
End Sub


Merci d'avance!!!

Jenn