Hervé, dans ton module de classe, tu as écrit la procédure suivante :
Private Sub labs_Click()
With UserForm1
.TextBox1 = .TextBox1 & labs.Caption
End With
End Sub
mais ce faisant ton code n'est pas très sûr parce qu'il suffit qu'on change le nom du userform pour que ça plante. puisque tu as récupéré ce userform en paramètre dans ton Init, alors tu peux très bien le réutiliser et écrire maintenant tout simplement :
Private Sub labs_Click()
With user
.TextBox1 = .TextBox1 & labs.Caption
End With
End Sub
Ainsi plus de risques d'erreurs !
Ceci dit ton code reste, comme toujours, très intéressant (mouarf, y vont finir par se demander si je t'en veux tant que ça ! :lol: )