Sub Atelier_Futs()
'déclaration des variables
Dim pathClasseurSemaine As String, classeurSemaine As Workbook
'définir le nom du classeur de la semaine courante (classeur source)
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & WorksheetFunction.WeekNum(Now) & ".xls"
'ouvrir le classeur en lecture seule
classeurSemaine = Application.Workbooks.Open(pathClasseurSemaine, , True)
'copier la zone "A3:AN491" de la feuille "XXXXXX" du classeur source dans la feuille "Compteurs" de ce classeur
classeurSemaine.Sheets("XXXXXX").Range("A3:AN491").Copy ThisWorkbook.Sheets("Compteurs").Range("A3")
''si il faut fermer le classeur source, enlever le commentaire sur la ligne suivante
'classeurSemaine.Close false
'appliquer le filtre sur la zone "A3:AN491" de la feuille "Compteurs" de ce classeur
ThisWorkbook.Sheets("Compteurs").Range("A3:AN491").AutoFilter Field:=11, Criteria1:="=GROUPE 52", Operator:=xlOr, Criteria2:="=GROUPE 56"
''si il faut imprimer la feuille "ATF" de ce classeur, enlever le commentaire sur la ligne suivante
'ThisWorkbook.PrintOut Copies:=1, Collate:=True
''si il faut ensuite fermer ce classeur, enlever le commentaire sur la ligne suivante
''sans enregistrer les modification
'ThisWorkbook.Close False
''en enregistrant les modifications
'ThisWorkbook.Close True
End Sub