Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("feuil1")
derligne = .Range("A65536").End(x1up).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = ctrl
Next
End With
TextBox1 = ""
End
End Sub