Bonjour,
Bah, c'est pas dur :
- Modifier le nom Data :
remplacer dans le code les occurrences de Data$ par ce qu'on veut avec un $ à la fin, exemple "Damien$" au lieu de "Data$" (Damien étant le nom donné à l'onglet contenant les données)
cf Ctrl+H
- trier :
* dans la procédure Sub Init_Combo, ajouter un élément au combo4 :
.ComboBox4.List = Array("`Opérateur`", "`Produit`", "`Priorité`")
* dans la fonction Function Tdata, ajouter un élément à Chp, par exemple
Chp = Array("`Opérateur`,`Produit`", _
"`Produit`,`Opérateur`", _
"`Priorité`,`Opérateur`")
Et roulez ...
Pierre