Private Sub CommandButton3_Click() 'modifier
Dim Ctrl As MSForms.Control
[COLOR="#B22222"]Sheets("Base").Cells(Li, col).Value = CDate(TextBox3)[/COLOR]For col = 1 To 11
Sheets("Base").Cells(Li, col) = Me("Textbox" & col)
Next
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "Textbox" Then Ctrl = ""
If TypeName(Ctrl) = "ComboBox" Then Ctrl = ""
Next Ctrl
End Sub