Re Salut
tu remplaces la procèdure du bouton Validation par celle ci
Private Sub CommandButton1_Click()
Dim y As Byte, i As Byte, x As Byte, L As Integer, C As Byte
Dim ctrl As Control
Application.ScreenUpdating = False
i = 1
L = Sheet1.Range("A35000").End(xlUp).Row + 1
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
For C = 1 To 2
Sheet1.Cells(L, C) = Me.Controls("ComboBox" & C)
Next C
Else
If TypeName(ctrl) = "TextBox" Then
Sheet1.Cells(L, C) = Me.Controls("textbox" & i)
i = i + 1
End If
C = C + 1
End If
Next
For C = 1 To 2
Me.Controls("ComboBox" & C).Text = ""
Next
For i = 1 To 8
Me.Controls("textbox" & i) = ""
Next
Application.ScreenUpdating = True
End Sub
A+++
Jean Marie