Bonsoir
Dans le module 1, remplacez cette macro
Sub vide()
With UserForm1
.ListBox1.Clear
.TextBox1.Value = ""
.TextBox2.Value = ""
'.TextBox3.Value = ""
.ComboBox1.Value = ""
.TextBox1.SetFocus
.ComboBox2.Value = ""
.TextBox6.Value = ""
End With
End Sub
Je pense aussi que votre sub initialize pourrait être simplifiée
Cordialement