Option Explicit
Const NbTextBox = ' 9211020 1 2 3 5 7 81112121415191718'
Dim NomLBindex As Integer
Private Sub ValidationModifs_Click()
'
Dim li As Long
Dim i As Byte
'
Sheets(IIf(checkbox2, 'AFacturer', 'Base')).Select
li = IIf(checkbox2, Range('A65536').End(xlUp).Row + 1, NomLBindex)
For i = 0 To 17
Cells(li, i\\\\\\\\10 + i + 1) = Me.Controls('TextBox' & _
Trim(Mid(NbTextBox, i * 2 + 1, 2)))
Next i
Unload Me
UserForm1.Show
End Sub