Sub CopieFiltre()
Dim chemin$, fichier$, code$, col As Byte
chemin = ThisWorkbook.Path & "\" '"Y:\Suivi du stock\Etat valorisé des stock\" 'à adapter
fichier = "A.xls" 'à adapter
code = "69" 'code du site choisi, à adapter
col = 1 'n° de colonne où se trouvent les codes des sites, à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Workbooks.Open chemin & fichier 'ouvre le fichier
If Err Then MsgBox fichier & " introuvable !": Exit Sub
With Workbooks(fichier).Sheets("Feuil1") 'feuille à adapter
.AutoFilterMode = False
.Cells.Copy Cells 'pour copier les dimensions des colonnes
Cells.Clear 'vide la feuille de restitution
.Cells.AutoFilter Field:=col, Criteria1:=code 'filtrage de la feuille (titres en 1ère ligne)
.Cells.SpecialCells(xlVisible).Copy Range("A1") 'copie la plage filtrée
End With
Workbooks(fichier).Close 'referme le fichier
End Sub