Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Object 'déclare la variable OS (Onglet Source)
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CD As Workbook 'déclare la variable CD (Classeur Detination)
Dim OD As Object 'déclare la variable OD (Onglet Destination)
Dim DEST As Range 'déclare la variable DEST (Cellule de DESTination)
Set CS = ThisWorkbook 'définit la classeur source CS
CH = CS.Path & "\" 'définit le chemin d'accès
Set OS = CS.Sheets("fichier 1") 'définit l'onglet source OS
DL = OS.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet source
Set PL = OS.Range("B1:E" & DL) 'définit la plage PL
OS.Range("A1").AutoFilter field:=1, Criteria1:=176270 'filtre la colonne 1 de l'onglet source avec 176270 comme critère
On Error Resume Next 'gestion des erreurs (en cas dérreur passe à la ligne suivante)
Set CD = Workbooks("Destination.xlsx") 'définit le classeur destination CD (si ce classeur est fermé génère une erreur)
If Err <> 0 Then 'condition : si une erreur a été générée
Err.Clear 'efface l'erreur
Application.Workbooks.Open (Path & "Destination.xlsx") 'ouvre le claseur
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Set CD = ActiveWorkbook 'définit le classeur destination CD
Set OD = CD.Sheets("fichier_destination") 'définit l'onglet destination OD
'définit la cellule de destination DEST
Set DEST = IIf(OD.Range("A1").Value = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
CS.Activate 'active le classeur Source
OS.Activate 'active l'onglet Source
PL.SpecialCells(xlCellTypeVisible).Copy 'copie les lignes visibles de la plage PL
DEST.PasteSpecial (xlPasteValues) 'colle les valeurs
With OS.Range("A1") 'prend en compte la cellule A1 de l'onglet source
.AutoFilter 'supprime le filtre automatique
.Select 'sélectionne la cellule
End With 'fin de la prise en compte de la cellule A1
End Sub