Bonsoir Jean P et le Forum
Jean P, selon la capacité de mes maigres connaissances en vba je pense que la non mise à jour des informations saisie est du au fait que l'AutoFilter reste enclenché, je pense que dans les procédures événementielles du bouton Ajouter et Quitter il faudrait faire appel à " UserForm_Initialize " un peu comme ça ( cf code en gras ci-dessous ) ce qui permettrai de mettre AutoFilter = False et voir les infos saisie je ne sais pas si c'est " propre " d'écrire de cette façon mais bon en attendant que les master comme @+Thierry, Ti, et autre Didier_mDF ne passe par ici pour corriger tout ça, si ça peu te donner une piste pour avancer tant mieux.
Private Sub CommandButton4_Click()
'Bouton AJOUTER
Dim CTRL As Control
Dim L As Integer
For Each CTRL In Me.Controls
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical, TT: CTRL.SetFocus: Exit Sub
Next CTRL
L = WS1.Range("A65536").End(xlUp).Row + 1
With WS1
.Range("A" & L) = ComboBox1
.Range("B" & L) = ComboBox2
.Range("C" & L) = TextBox3
End With
UserForm_Initialize
Combo
End Sub
Salim