For t = 1 To 10
If Controls('textbox' & t).Visible = True Then
If (t = 1 Or t = 7 Or t = 8 Or t = 10) Then
marq = Controls('TextBox' & t).Value
Cells(fiche, t).Value = CLng(marq)
Else
Cells(fiche, t).Value = Controls('textbox' & t).Value
End If
End If
Next