Autofilter ne fonctionne pas pour tous les utilisateurs

Bonjour,

J'ai une macro dans mon fichier qui effectue un filtre automatique pour ne pas afficher les lignes qui sont à zéro.

Elle s'exécute quand je fais la mise a jour globale de mon fichier.

Tout fonctionne pour moi.

Problème: Quand certains de mes collègues l'utilise, le filtre ne semble pas fonctionner. L'ensemble des données de la feuille est masqué et je ne comprend pas pourquoi.

La macro ne s'exécute pourtant pas a l'ouverture du fichier, du moins je crois.

Voici la macro liée a mon bouton de mise a jour.

Merci de votre aide

Sub miseàjourglobale()

'

' miseàjourglobale Macro

'

'

Sheets("BD").Select

Range("A2:AL550").Select

Selection.ClearContents

Sheets("Choix").Select

Workbooks.Open Filename:="\\jonqsrvdata04\EEQDataUsine\Fichier IPAM\TCD coûts.xlsb", Notify:=False

Sheets("TCD écart mensuel").Select

Range("A35:AL550").Select

Selection.Copy

Windows("Explication des écarts CF.xlsm").Activate

Sheets("BD").Select

Range("A2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Choix").Select

Windows("TCD coûts.xlsb").Activate

ActiveWindow.Close

Sheets("TCD").Select

Range("B22").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

Sheets("Choix").Select

Sheets("1").Select

ActiveSheet.Range("$A$6:$BO$55").AutoFilter Field:=67

ActiveSheet.Range("$A$6:$BO$55").AutoFilter Field:=67, Criteria1:="1-"

Sheets("2").Select

ActiveSheet.Range("$A$6:$BO$55").AutoFilter Field:=67

ActiveSheet.Range("$A$6:$BO$55").AutoFilter Field:=67, Criteria1:="1-"

Sheets("3").Select

ActiveSheet.Range("$A$6:$BO$55").AutoFilter Field:=67

ActiveSheet.Range("$A$6:$BO$55").AutoFilter Field:=67, Criteria1:="1-"

Sheets("4").Select

End Sub