Dim x As Byte, c As Byte
x = 1
With Sheets(MoisNom)
NV = .Range("A65500").End(xlUp).Row + 1
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSFORMS.TextBox Then
If Ctrl.Name = "TextBox" & x Then
If IsNumeric(Ctrl.Value) Then .Cells(NV, x).Value = CDbl(Ctrl.Value)
x = x + 1
End If
End If
Next Ctrl
End With