Si TextBox8 différent de vide alors placer les saisies...

Bonsoir à tout le forum,

Je souhaiterais vos lumières pour me dire comment faire pour que ce code, qui place dans un premier temps les saisies renseignées par la ComboBox2 (entre autres), puisse copier à nouveau les saisies de la TextBox8 si cette TextBox8 est différent de blanc.

voir le code que j'ai bidouillé en fonction de mes très minces connaissances en VBA (ne pas rire...lol) ;

Private Sub CommandButton1_Click()

Remplissage tableau acte principal ComboBox2
i = 18
With Sheets("saisies")
Do While .Cells(i, 18) <> ""
i = i + 1
Loop

Worksheets("saisies").Select
Range("E65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1
ActiveCell.Offset(0, 1).Value = TextBox3
ActiveCell.Offset(0, 2).Value = TextBox4
ActiveCell.Offset(0, 3).Value = ComboBox2 'premier passage avec le contenu de cette ComboBox
ActiveCell.Offset(0, 4).Value = ComboBox3
ActiveCell.Offset(0, 7).Value = TextBox5
ActiveCell.Offset(0, 8).Value = Val(TextBox6.Value)
ActiveCell.Offset(0, 9).Value = Val(TextBox7.Value)

End With


Remplissage tableau si acte associé TextBox8
If TextBox8 <> "" Then ' si vide on ne fait rien
End If

i = 18
With Sheets("saisies")
Do While .Cells(i, 18) <> ""
i = i + 1
Loop

Worksheets("saisies").Select
Range("E65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1
ActiveCell.Offset(0, 1).Value = TextBox3
ActiveCell.Offset(0, 2).Value = TextBox4
ActiveCell.Offset(0, 3).Value = TextBox8 ' deuxième passage avec contenu de cet TextBox si non vide
ActiveCell.Offset(0, 4).Value = ComboBox3
ActiveCell.Offset(0, 7).Value = TextBox5
ActiveCell.Offset(0, 8).Value = Val(TextBox6.Value)
ActiveCell.Offset(0, 9).Value = Val(TextBox7.Value)

End With

End Sub


Merci pour votre aide.
Bien amicalement,
Christian