Bonjour fafri
Je te conseil de mettre la macro concernant la ou les commandBars dans Workbook_Open()
Il y a aussi On Error GoTo Worksheet_Activate_error - Feuil1.Activate - On Error GoTo Worksheet_change_error
Vu que tu es dans Worksheet_Activate, ces lignes sont inutiles, sans compter tous ces On Error GoTo - Call Feuil1.Worksheet_Calculate -
select_automates.ListBox2.Clear à supprimer. Ici Listbox2.Clear suffit, pas besoin d'ajouter le nom du formulaire, vu quelle fait partie de l'usf.
Private Sub UserForm_Activate()
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = "6;19"
ListBox2.Clear
ListBox2.List = table() Où il est le tableau??
End Sub
Ceci est à mettre dans UserForm_Initialize(), et il y a encore d'autres erreurs dans ton projet que, personnellement, ça me donne pas envie de tout corriger.