RE
Arf j'ai loupé ce message
Il faudrait
If Not Intersect([Choix], Target) Is Nothing Then
[Tout].ListObject.QueryTable.Refresh
[Compétences_spécialisations].ListObject.QueryTable.Refresh
[Évènement_de_carrière].ListObject.QueryTable.Refresh
[Suivi_formation_2].ListObject.QueryTable.Refresh
[Grille_polyvalence_2].ListObject.QueryTable.Refresh
En if
Mais si tu as gardé les diverses requêtes dans Tout, met Tout en dernier
Et vérifie bien les noms des divers tableaux