Private Sub CommandButton1_Click()
Dim L As Long, c As Byte
With Feuil1
L = .Range("A30").End(xlUp).Row + 1
For c = 1 To 10[COLOR="#00FF00"]'tuchanges 10 par le chiffre où tu veux arrêter[/COLOR]
Select Case c
Case 7, 8, 9
.Cells(L, c) = CDbl(Me("Textbox" & c))
Case Else
.Cells(L, c) = Me("Textbox" & c)
End Select
Next c
End With
/CODE]
sur ce forum, developpez.com tu auras de la documentation
Jaques BoisGonthier est aussi une référence et bien d'autres