Sub Sheet_Table_refresh_2024()
Dim tbl As ListObject
' Désactiver la gestion des erreurs pour éviter les interruptions
On Error Resume Next
' Boucle à travers tous les objets de la feuille active
For Each tbl In ActiveSheet.ListObjects
' Vérifier si l'objet a une QueryTable avant de l'actualiser
If Not tbl.QueryTable Is Nothing Then
tbl.QueryTable.Refresh BackgroundQuery:=False...