Bonjour
sans aller au fond de ce que tu veux faire.
Dans cette partie f= feuille bd , ncol = 98
donc avec f.Cells(NoEnreg, k) = Me("textBox" & k) tu change le contenu de test formule par le contenu de box!
Private Sub b_valid_Click()
If Me.Enreg <> "" And Me.TextBox1 <> "" Then
NoEnreg = Me.Enreg
For k = 1 To Ncol
x = Replace(Me("textBox" & k), " ", "")
If IsNumeric(x) Then
f.Cells(NoEnreg, k) = Val(x)
Else
f.Cells(NoEnreg, k) = Me("textBox" & k)
End If
Next k
raz
Me.Enreg = ""