transfert de saisies dans Excel

Bonjour,

j'ai le code (extrait, car après j'ai les consignes d'effacer la saisie précédente du formulaire)) suivant pour basculer les éléments de mon formulaire dans Excel :

Private Sub NouvelleSaisie_Click()

If TextBox2.Value = "Attention oubli" Or TextBox2.Value = "" Or TextBox2 = "Penser à valider" Or TextBox2.Value = "Saisir le type d'action" Then
MsgBox ("Il faut impérativement cocher le type d'action et/ou valider !!!!")
Exit Sub
End If

Worksheets("feuil2").Select
derlig = [a65000].End(xlUp).Row + 1
'copie le compteur en A1
Cells(derlig, 1) = Me.TextBox4
'transfert toutes les saisie dans Excel et là elles n'y sont pas toutes
Cells(derlig, 13) = IIf(Me.Controls("checkbox1"), 1, "")
Cells(derlig, 14) = IIf(Me.Controls("checkbox2"), 1, "")
Cells(derlig, 15) = IIf(Me.Controls("checkbox3"), 1, "")
Cells(derlig, 16) = IIf(Me.Controls("checkbox4"), 1, "")
Cells(derlig, 17) = IIf(Me.Controls("checkbox5"), 1, "")
Cells(derlig, 18) = IIf(Me.Controls("checkbox6"), 1, "")
Cells(derlig, 19) = IIf(Me.Controls("checkbox7"), 1, "")

J'aimerai beaucoup essayér de regrouper tout ça pour diminuer le nombre de lignes, car mon formulaire est immense.

Comment puis-je faire ?

J'avais une solution :
rivate Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 3
Cells(derlig, i) = IIf(Me.Controls("checkbox" & i), 1, 0)
Next i
Cells(derlig, 5) = Me.TextBox1
End Sub

mais elle me copie qu'à partir de la 1ère colonne et je n'arrive pas à décaler celles-ci pour lamettre en colonne 13 par exemple. De plus les checkbox sont numéroté &i et toutes mes texbox ont un nom différent.

Cordialement