RE
Tu peux le faire au changement de la cellule de choix de travaux
dans le module ThisWorkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, [Choix].ListObject.DataBodyRange) Is Nothing Then ThisWorkbook.RefreshAll
End Sub
ou dans le module de la feuille contant le tableau de choix
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Choix].ListObject.DataBodyRange) Is Nothing Then ThisWorkbook.RefreshAll
End Sub