Private Sub CommandButton1_Click()
Dim lig As Long, arrCelTB, arrCelCB, i%, j%
arrCel = Split("B D E H I J K N M L")
With Sheets(1)
lig = .Range("A65536").End(xlUp).Row + 1
For i = 0 To UBound(arrCel)
Select Case i
Case 0 To 6
.Cells(lig, arrCel(i)) = Controls("TextBox" & i + 2)
Case 7 To 9
.Cells(lig, arrCel(i)) = Controls("ComboBox" & i - 6)
End Select
Next i
End With
End Sub